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,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))
|
||||
|
||||
|
|
Loading…
Reference in New Issue