Hacked code so that you don't get [for-syntax] noise during loads when

in batch mode.
This commit is contained in:
shivers 1997-04-02 18:47:06 +00:00
parent ddddd1d31b
commit 934905ed57
1 changed files with 5 additions and 3 deletions

4
env/pacman.scm vendored
View File

@ -290,7 +290,9 @@
tower ;? tower ;?
(delay (let ((p (eval `(a-package ((for-syntax ,id)) ,@clauses) (delay (let ((p (eval `(a-package ((for-syntax ,id)) ,@clauses)
config))) config)))
(ensure-loaded (make-structure p (really-ensure-loaded
(and (not (batch-mode?)) (current-output-port))
(make-structure p
(lambda () (make-simple-interface #f '())) (lambda () (make-simple-interface #f '()))
'for-syntax)) 'for-syntax))
(cons eval p)))))) (cons eval p))))))