From 000b28c88bbfd1fde94b5e01ce2766230077e013 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 12 Jan 2025 15:10:23 -0700
Subject: Expansion of complex expressions into set of instructions

---
 src/modules/utils/t-factory.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/modules/utils/t-factory.scm

(limited to 'src/modules/utils/t-factory.scm')

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))))
-- 
cgit v1.2.3