summaryrefslogtreecommitdiff
path: root/src/modules/utils/t-factory.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/modules/utils/t-factory.scm')
-rw-r--r--src/modules/utils/t-factory.scm24
1 files changed, 0 insertions, 24 deletions
diff --git a/src/modules/utils/t-factory.scm b/src/modules/utils/t-factory.scm
deleted file mode 100644
index cad7c24..0000000
--- a/src/modules/utils/t-factory.scm
+++ /dev/null
@@ -1,24 +0,0 @@
-(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))))