diff options
Diffstat (limited to 'slset.scm')
| -rw-r--r-- | slset.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -19,10 +19,10 @@ with-reified-slset reified-slset? reified-slset->slset reified-slset-adjoin! reified-slset-delete! reified-slset-contains?) -(import scheme (chicken base) (chicken plist)) +(import scheme (chicken base) (chicken plist) (chicken type)) (define-inline (mark! x marking) - (when (symbol? x) (put! x marking #t))) + (when (symbol? x) (put! x (the symbol marking) #t))) (define-inline (mark-list! lst marking) (for-each (lambda (x) (mark! x marking)) lst)) @@ -47,7 +47,7 @@ (else (lp (cdr lst)))))) (define-inline (marked? x marking) - (and (symbol? x) (get x marking))) + (and (symbol? x) (get x (the symbol marking) #f))) (define (last lst) (if (null? (cdr lst)) |