diff options
author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2025-10-07 15:15:58 +0200 |
---|---|---|
committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2025-10-07 15:15:58 +0200 |
commit | a1ed7b9f9954618e2ed4e14dd2dd3215ba7afd7d (patch) | |
tree | 5ce01882fb28f786ce6c362cb51d8809d641284c /src/as.scm | |
parent | 656bca99b0b4c7130855cb01b30b944d4dcb4d12 (diff) |
API: move `src` to `ss`
Diffstat (limited to 'src/as.scm')
-rw-r--r-- | src/as.scm | 16 |
1 files changed, 0 insertions, 16 deletions
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))) |