mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
80f225df0e
in output. (We normally *would* like also these expressions to be quoted, but until Guile's native macros and syncase cooperates better, it is less destructive not to quote.) (self-evaluating?): Removed null? (In Guile, the empty list is not self-evaluating). (sc-chi): Export chi as sc-chi. (external-macro): New syntax type. * psyntax.pp: Regenerated. * compile-psyntax.scm: Set expansion-eval-closure. * syncase.scm: Set expansion-eval-closure to the-syncase-eval-closure during booting so that variables are created in the correct module. (syncase): Set expansion-eval-closure. (define-syntax define-syntax-public eval-when fluid-let-syntax identifier-syntax let-syntax letrec-syntax syntax syntax-case syntax-rules with-syntax include): Removed definitions (these are created from within psyntax.pp). Enable expansion of Guile macros during a syntax-case transformation.
27 lines
841 B
Scheme
27 lines
841 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 (sc-expand3 x 'c '(compile load eval)) out)
|
|
(newline out)
|
|
(loop (read in)))))))
|
|
|
|
(system (format #f "mv -f ~s.tmp ~s" target target))
|