diff options
Diffstat (limited to 'src/as.scm')
-rw-r--r-- | src/as.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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))) |