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` --- ss/as.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 ss/as.scm (limited to 'ss/as.scm') diff --git a/ss/as.scm b/ss/as.scm new file mode 100644 index 0000000..6af0ff4 --- /dev/null +++ b/ss/as.scm @@ -0,0 +1,16 @@ +(define-module (ss 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 `(ss as ,what))) -- cgit v1.2.3