summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-10-16 13:39:24 +0200
committerAndy Wingo <wingo@pobox.com>2009-10-16 13:39:24 +0200
commit4b2afc625816ee1f159cdecb8d1316d9958401f7 (patch)
tree6fff18609e0ddc851aae10e8ccb8a620f34d0b14 /module/system/base/compile.scm
parenta58b7fbb7eb80bdbc0af9aee86a5ac12b9cfeef3 (diff)
downloadguile-4b2afc625816ee1f159cdecb8d1316d9958401f7.tar.gz
language-readers receive environment as an arg
* module/language/assembly/spec.scm: * module/language/brainfuck/spec.scm: * module/language/bytecode/spec.scm: * module/language/ecmascript/spec.scm: * module/language/glil/spec.scm: * module/language/scheme/spec.scm: * module/language/tree-il/spec.scm: Language-readers now take two arguments: the port and the environment. This should allow for compile-environment-specific reader behavior. * module/system/base/compile.scm (read-and-compile): * module/system/repl/common.scm (repl-read): Pass the environment to the language-reader. * module/system/repl/repl.scm (meta-reader, prompting-meta-read): * module/system/repl/command.scm (define-meta-command): Use the second argument to repl-reader, so we avoid frobbing current-reader.
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)