summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r--module/system/base/compile.scm2
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)