paameterize in read-and-compile

* module/system/base/compile.scm (read-and-compile): Use
  current-language parameter.

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index f92ca7d..f3e4641 100644 (file)
--- 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