diff options
Diffstat (limited to 'csc/gensym.csc')
| -rw-r--r-- | csc/gensym.csc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/csc/gensym.csc b/csc/gensym.csc index a7c30c5..252f77c 100644 --- a/csc/gensym.csc +++ b/csc/gensym.csc @@ -1,6 +1,7 @@ (define-library (csc gensym) (export gensym + gensym->int gensym=?) (import (scheme base)) (begin @@ -9,11 +10,11 @@ (define-record-type <gensym> (make-gensym id) gensym? - (id gensym-id)) + (id gensym->int)) (define (gensym=? s1 s2) - (= (gensym-id s1) (gensym-id s2))) + (= (gensym->int s1) (gensym->int s2))) (define *next-id* 0) |