Hacked code so that you don't get [for-syntax] noise during loads when
in batch mode.
This commit is contained in:
parent
ddddd1d31b
commit
934905ed57
|
@ -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))))))
|
||||||
|
|
Loading…
Reference in New Issue