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