diff options
| author |  Peter McGoron
| 2025-11-15 06:14:11 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-15 06:14:11 -0500 |
| commit | e6fff3a15c916693a6a5cea1f9ae861b13b1e530 (patch) | |
| tree | fe89ff73f84b34fdd895bc04f6ba6bbc6308d6f2 /lib/cuprate/implementation | |
| parent | use srfi-146 when full srfi-225 is available for chibi (diff) | |
fix cycle counter
Diffstat (limited to 'lib/cuprate/implementation')
| -rw-r--r-- | lib/cuprate/implementation/alist-eq-map.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/cuprate/implementation/alist-eq-map.scm b/lib/cuprate/implementation/alist-eq-map.scm index f9841e7..42097c0 100644 --- a/lib/cuprate/implementation/alist-eq-map.scm +++ b/lib/cuprate/implementation/alist-eq-map.scm @@ -4,7 +4,7 @@ (define counter 0) (lambda (msg obj) (case msg - ((contains?) (assq obj alist)) + ((contains?) (pair? (assq obj alist))) ((cycle-counter) (set! interned-alist (cons obj interned-alist)) (let ((num (cdr (assq obj alist)))) |