From e2eeaa4789907971201068ff7050ac9b2cdcf562 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 3 Oct 2001 09:00:28 +0000
Subject: [PATCH] Set $current-noise-port to null-output-port during switch
 evaluation.

---
 scsh/top.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/scsh/top.scm b/scsh/top.scm
index 02e1e9c..1a73807 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -31,10 +31,13 @@
 ;;; ensure-loaded and load-into now write to noise-port anyway
 
 (define (load-quietly filename p)
-  (load-into filename p))
+  (let-fluid $current-noise-port (make-null-output-port)
+	     (lambda () (load-into filename p))))
 
 (define (really-ensure-loaded noise . structs)
-  (apply ensure-loaded structs))
+  (let-fluid $current-noise-port (make-null-output-port)
+	     (lambda ()
+	       (apply ensure-loaded structs))))
 		      
 ;;; The switches:
 ;;; 	-o <struct>		Open the structure in current package.