1 files changed, 21 insertions, 0 deletions
diff --git a/lib/csc/gensym.scheme b/lib/csc/gensym.scheme
new file mode 100644
index 0000000..8e340e4
--- /dev/null
+++ b/lib/csc/gensym.scheme
@@ -0,0 +1,21 @@
+(define-library (csc gensym)
+  (export
+    gen
+    gensym->int
+    gensym?)
+  (import (scheme base))
+  (begin
+
+
+    (define-record-type <gensym>
+      (make-gensym id)
+      gensym?
+      (id gensym->int))
+
+
+    (define *next-id* 0)
+
+
+    (define (gen)
+      (set! *next-id* (+ 1 *next-id*))
+      (make-gensym *next-id*))))