diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-22 15:40:08 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-22 15:40:08 +0100 |
commit | e6f7624ad32277d0b59be6aeed62c854da7ad751 (patch) | |
tree | dfe97a1d9a7bc5c2bf2457c2514222bb1191ff92 | |
parent | 7ca5500ff303e16c77f473a42ece9cb20e3e3569 (diff) | |
download | guile-e6f7624ad32277d0b59be6aeed62c854da7ad751.tar.gz |
paameterize in read-and-compile
* module/system/base/compile.scm (read-and-compile): Use
current-language parameter.
-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 f92ca7dd1..f3e464182 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -209,7 +209,7 @@ (let ((from (ensure-language from)) (to (ensure-language to))) (let ((joint (find-language-joint from to))) - (with-fluids ((*current-language* from)) + (parameterize ((current-language from)) (let lp ((exps '()) (env #f) (cenv env)) (let ((x (read-and-parse (current-language) port cenv))) (cond |