diff options
Diffstat (limited to 'src/modules/utils/t-factory.scm')
-rw-r--r-- | src/modules/utils/t-factory.scm | 24 |
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)))) |