aboutsummaryrefslogtreecommitdiffstats
path: root/lib/csc/gensym.csc
diff options
context:
space:
mode:
Diffstat (limited to 'lib/csc/gensym.csc')
-rw-r--r--lib/csc/gensym.csc27
1 files changed, 0 insertions, 27 deletions
diff --git a/lib/csc/gensym.csc b/lib/csc/gensym.csc
deleted file mode 100644
index 480cbc2..0000000
--- a/lib/csc/gensym.csc
+++ /dev/null
@@ -1,27 +0,0 @@
-(define-library (csc gensym)
- (export
- gensym
- gensym->int
- gensym=?
- gensym?)
- (import (scheme base))
- (begin
-
-
- (define-record-type <gensym>
- (make-gensym id)
- gensym?
- (id gensym->int))
-
-
- (define (gensym=? s1 s2)
- (= (gensym->int s1) (gensym->int s2)))
-
-
- (define *next-id* 0)
-
-
- (define (gensym)
- (let ((sym (make-gensym *next-id*)))
- (set! *next-id* (+ 1 *next-id*))
- sym))))