From dc7202a0338126cef3a756dc6761eb0c3885078e Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sun, 8 Oct 2023 15:23:54 +0200 Subject: as; call-in-module instead of calling in interface Calling in module let's the user write any scheme code they want inside the template. --- src/as.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/as.scm') diff --git a/src/as.scm b/src/as.scm index b95c096..d309b8a 100644 --- a/src/as.scm +++ b/src/as.scm @@ -4,13 +4,13 @@ (define (call-in-module thunk module) (let* ((curmod (current-module)) - (_ (set-current-module (resolve-interface module))) + (_ (set-current-module (resolve-module module))) (v (thunk)) (_ (set-current-module curmod))) v)) -(define (load-with-interface path module-name) +(define (load-in-module path module-name) (call-in-module (lambda () (load path)) module-name)) (define (as what file) - (load-with-interface file `(src as ,what))) + (load-in-module file `(src as ,what))) -- cgit v1.2.3