Expansion of complex expressions into set of instructions

1 files changed, 24 insertions, 0 deletions

diff --git a/src/modules/utils/t-factory.scm b/src/modules/utils/t-factory.scm
new file mode 100644
index 0000000..cad7c24
--- /dev/null
+++ b/src/modules/utils/t-factory.scm
@@ -0,0 +1,24 @@
+(define-module (modules utils t-factory)
+  #:use-module (srfi srfi-9)
+  #:export (temporary?
+	    temporary-name
+	    temporary-register
+	    set-temporary-register!
+	    make-temporary
+	    ))
+
+
+(define-record-type <temporary>
+  (make--temporary name register)
+  temporary?
+  (name temporary-name)
+  (register temporary-register set-temporary-register!))
+
+(define make-temporary)
+(let ((count 100))
+  (set! make-temporary
+	(lambda ()
+	  (set! count (1+ count))
+	  (make--temporary (string->symbol
+			    (format #f "t.~a" count))
+			   #f))))