diff options
author | bd <bdunahu@operationnull.com> | 2025-01-18 01:22:46 -0700 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2025-01-18 01:22:46 -0700 |
commit | 1c216bd45a7d4fb529288192ecff46453309c485 (patch) | |
tree | dfd526c8ce5577b6f11163714250e4164bd39af5 /src/modules/utils/t-factory.scm | |
parent | 000b28c88bbfd1fde94b5e01ce2766230077e013 (diff) |
Remove unused files
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)))) |