summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-01-22 15:40:08 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-22 15:40:08 +0100
commite6f7624ad32277d0b59be6aeed62c854da7ad751 (patch)
treedfe97a1d9a7bc5c2bf2457c2514222bb1191ff92
parent7ca5500ff303e16c77f473a42ece9cb20e3e3569 (diff)
downloadguile-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.scm2
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