1 files changed, 27 insertions, 0 deletions
diff --git a/lib/csc/gensym.csc b/lib/csc/gensym.csc
new file mode 100644
index 0000000..480cbc2
--- /dev/null
+++ b/lib/csc/gensym.csc
@@ -0,0 +1,27 @@
+(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))))