From a89d6c82e981fec7d6e4c975e083d2b9e04467ad Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Mon, 1 May 2023 07:56:42 -0700 Subject: Rewrite most of the compiler. This represents a major step back in terms of functionality, and amount of code. The latter I think constitutes a major win. Next steps are to reimplement syntax-rules, call/cc, and call-with-values. --- lib/csc/gensym.scheme | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 lib/csc/gensym.scheme (limited to 'lib/csc/gensym.scheme') 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 + (make-gensym id) + gensym? + (id gensym->int)) + + + (define *next-id* 0) + + + (define (gen) + (set! *next-id* (+ 1 *next-id*)) + (make-gensym *next-id*)))) -- cgit v1.3.1