diff options
author | Andy Wingo <wingo@pobox.com> | 2009-10-16 13:39:24 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-10-16 13:39:24 +0200 |
commit | 4b2afc625816ee1f159cdecb8d1316d9958401f7 (patch) | |
tree | 6fff18609e0ddc851aae10e8ccb8a620f34d0b14 /module/system/base/compile.scm | |
parent | a58b7fbb7eb80bdbc0af9aee86a5ac12b9cfeef3 (diff) | |
download | guile-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.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) |