From 94a68dffff741be5ed45adcb37d453773f13c6fe Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 4 Oct 2023 14:25:15 +0200 Subject: Make project structure and builder script --- src/as.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 src/as.scm (limited to 'src/as.scm') diff --git a/src/as.scm b/src/as.scm new file mode 100644 index 0000000..b95c096 --- /dev/null +++ b/src/as.scm @@ -0,0 +1,16 @@ +(define-module (src as) + #:export (as) + #:declarative? #f) + +(define (call-in-module thunk module) + (let* ((curmod (current-module)) + (_ (set-current-module (resolve-interface module))) + (v (thunk)) + (_ (set-current-module curmod))) + v)) + +(define (load-with-interface path module-name) + (call-in-module (lambda () (load path)) module-name)) + +(define (as what file) + (load-with-interface file `(src as ,what))) -- cgit v1.2.3