mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-04 11:10:27 +02:00
9d80c15649
* module/ice-9/Makefile.am: Replace annotate.scm with expand-support.scm. * module/ice-9/annotate.scm: Removed; subsumed into expand-support.scm. * module/ice-9/compile-psyntax.scm: Strip out expansion structures before writing to disk. * module/ice-9/expand-support.scm: New file. Provides annotation support, and other compound data types for use by the expander. Currently the only one that is used is the toplevel reference, <module-ref>, but we will record lexicals this way soon. * module/ice-9/psyntax-pp.scm: Regenerate. * module/ice-9/psyntax.scm (build-global-reference) (build-global-assignment): Instead of expanding out global references as symbols, expand them as <module-ref> structures, with space to record the module that they should be scoped against. This is in anticipation of us actually threading the module info through the syntax transformation, so that we can get hygiene with respect to modules. * module/ice-9/syncase.scm: Replace eval-when. Since sc-expand will give us something that isn't Scheme because we put the <module-ref> structures in it, strip that info whenever we actually do need scheme. * module/language/scheme/compile-ghil.scm (lookup-transformer): Strip expansion structures here too. * module/language/scheme/expand.scm (language): Swap annotate for expand-support. But this file will die soon, I think.
29 lines
909 B
Scheme
29 lines
909 B
Scheme
(use-modules (ice-9 syncase))
|
|
|
|
;; XXX - We need to be inside (ice-9 syncase) since psyntax.ss calls
|
|
;; `eval' int he `interaction-environment' aka the current module and
|
|
;; it expects to have `andmap' there. The reason for this escapes me
|
|
;; at the moment.
|
|
;;
|
|
(define-module (ice-9 syncase))
|
|
|
|
(define source (list-ref (command-line) 1))
|
|
(define target (list-ref (command-line) 2))
|
|
|
|
(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
|
|
(close-port out)
|
|
(close-port in))
|
|
(begin
|
|
(write (strip-expansion-structures
|
|
(sc-expand3 x 'c '(compile load eval)))
|
|
out)
|
|
(newline out)
|
|
(loop (read in)))))))
|
|
|
|
(system (format #f "mv -f ~s.tmp ~s" target target))
|