diff options
Diffstat (limited to 'module/system/repl/common.scm')
-rw-r--r-- | module/system/repl/common.scm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 8ea1c0bf6..ba18e2ea0 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -70,13 +70,7 @@ ((memq #:c opts) 'glil) (else 'objcode)))) (from (repl-language repl))) - (compile form #:from from #:to to #:opts opts - ;; XXX: Languages other than Scheme may not support having - ;; a module as the environment, so work around that. See - ;; also `language-default-environment'. - #:env (if (eq? from (lookup-language 'scheme)) - (current-module) - #f)))) + (compile form #:from from #:to to #:opts opts #:env (current-module)))) (define (repl-parse repl form) (let ((parser (language-parser (repl-language repl)))) |