diff options
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r-- | module/system/base/compile.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm index d1cb3bea7..11c23af3d 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -235,7 +235,7 @@ function should only be called from stages in the compiler tower." (language-default-environment from)))) (let lp ((exps '()) (env #f) (cenv (fluid-ref *compilation-environment*))) - (let ((x ((language-reader (current-language)) port))) + (let ((x ((language-reader (current-language)) port env))) (cond ((eof-object? x) (compile ((language-joiner joint) (reverse exps) env) |