From a1ed7b9f9954618e2ed4e14dd2dd3215ba7afd7d Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Tue, 7 Oct 2025 15:15:58 +0200 Subject: API: move `src` to `ss` --- src/as.scm | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100644 src/as.scm (limited to 'src/as.scm') diff --git a/src/as.scm b/src/as.scm deleted file mode 100644 index d309b8a..0000000 --- a/src/as.scm +++ /dev/null @@ -1,16 +0,0 @@ -(define-module (src as) - #:export (as) - #:declarative? #f) - -(define (call-in-module thunk module) - (let* ((curmod (current-module)) - (_ (set-current-module (resolve-module module))) - (v (thunk)) - (_ (set-current-module curmod))) - v)) - -(define (load-in-module path module-name) - (call-in-module (lambda () (load path)) module-name)) - -(define (as what file) - (load-in-module file `(src as ,what))) -- cgit v1.2.3