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

8
env/pacman.scm vendored
View File

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