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

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

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