/[guile]/guile/guile-core/ice-9/compile-psyntax.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/compile-psyntax.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.2 by mvo, Wed Sep 4 20:09:00 2002 UTC revision 1.1.2.3 by rlb, Sat Sep 27 04:21:25 2003 UTC
# Line 12  Line 12 
12    
13  (let ((in (open-input-file source))  (let ((in (open-input-file source))
14        (out (open-output-file (string-append target ".tmp"))))        (out (open-output-file (string-append target ".tmp"))))
15    (let loop ((x (read in)))    (with-fluids ((expansion-eval-closure
16      (if (eof-object? x)                  (module-eval-closure (current-module))))
17          (begin      (let loop ((x (read in)))
18            (close-port out)        (if (eof-object? x)
19            (close-port in))           (begin
20          (begin             (close-port out)
21            (write (sc-expand3 x 'c '(compile load eval)) out)             (close-port in))
22            (newline out)           (begin
23            (loop (read in))))))             (write (sc-expand3 x 'c '(compile load eval)) out)
24               (newline out)
25               (loop (read in)))))))
26    
27  (system (format #f "mv -f ~s.tmp ~s" target target))  (system (format #f "mv -f ~s.tmp ~s" target target))

Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26