; FILE          "expand-file.scm"
; IMPLEMENTS    Syntax expandion for file
; AUTHOR        Ken Dickey
; DATE          1992 August 23
; LAST UPDATED  1992 August 23

;; requires FORMAT

(define (SYNTAX-EXPAND-FILE <scheme-file-name> <new-file-name>)
   (call-with-input-file <scheme-file-name>
      (lambda (in)
         (call-with-output-file <new-file-name>
            (lambda (out)
               (let loop ( (exp (read in)) )
                    (if (eof-object? exp)
                        (format #t "Expansion complete for ~a" <scheme-file-name>)
                        (begin
                           (format out "~%~G" (##syntax-expand exp))
                           (loop (read in))
                    )   )
)  )  )  )  )  )


;;                      --- E O F ---                   ;;