/[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 by mvo, Mon Jul 23 22:09:42 2001 UTC revision 1.2 by mdj, Thu Jan 16 11:48:14 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  
changed lines
  Added in v.1.2

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