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