From 1c216bd45a7d4fb529288192ecff46453309c485 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 Jan 2025 01:22:46 -0700 Subject: Remove unused files --- src/modules/utils/t-factory.scm | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 src/modules/utils/t-factory.scm (limited to 'src/modules/utils') 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 - (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