From 934905ed573bcc3a580e21dac2b16fb0767853f5 Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Wed, 2 Apr 1997 18:47:06 +0000
Subject: [PATCH] Hacked code so that you don't get [for-syntax] noise during
 loads when in batch mode.

---
 env/pacman.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/env/pacman.scm b/env/pacman.scm
index 997f071..3f0db17 100644
--- a/env/pacman.scm
+++ b/env/pacman.scm
@@ -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))