Modify the project structure.

Now the lib directory contains what will eventually end up on the
user's /usr/lib/csc. When I write make install, it will copy all of
the .csc files from lib into the destination lib directory. This means I
can start working on the standard library in lib/scheme.

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))))