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

* compile-psyntax.scm: migrate missing with-fluids wrapper from

Browse source 
HEAD -- may have been overlooked during the 2003-01-27 merge.
Fixes one of two errors when trying to recompile psyntax.pp.
This commit is contained in:
Rob Browning 2003-09-27 04:21:25 +00:00
parent 4be93bf7d6
commit 172d1d9cba
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/compile-psyntax.scm
View file

@ -12,6 +12,8 @@
(let ((in (open-input-file source))
(out (open-output-file (string-append target ".tmp"))))
(with-fluids ((expansion-eval-closure
(module-eval-closure (current-module))))
(let loop ((x (read in)))
(if (eof-object? x)
(begin
@ -20,6 +22,6 @@
(begin
(write (sc-expand3 x 'c '(compile load eval)) out)
(newline out)
(loop (read in))))))
(loop (read in)))))))
(system (format #f "mv -f ~s.tmp ~s" target target))