mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

paameterize in read-and-compile

Browse source 
* module/system/base/compile.scm (read-and-compile): Use
  current-language parameter.
This commit is contained in:
Andy Wingo 2013-01-22 15:40:08 +01:00
parent 7ca5500ff3
commit e6f7624ad3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/base/compile.scm
View file

@ -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