diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-06-30 20:11:37 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-06-30 20:11:37 -0700 |
| commit | 465a587c2b503b9716dac06a1fc4d58e69634e73 (patch) | |
| tree | 25d7b5a3ed68df1a252279804b7beb1ca867baac /csc | |
| parent | Add pattern matching for record types. (diff) | |
| download | chromatopelma-465a587c2b503b9716dac06a1fc4d58e69634e73.tar.zst | |
Add a function for getting the gensym ID.
Diffstat (limited to '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) |