scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Set $current-noise-port to null-output-port during switch evaluation.

This commit is contained in:
mainzelm 2001-10-03 09:00:28 +00:00
parent a6320a93a9
commit e2eeaa4789
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scsh/top.scm
View File

@ -31,10 +31,13 @@
;;; ensure-loaded and load-into now write to noise-port anyway ;;; ensure-loaded and load-into now write to noise-port anyway
(define (load-quietly filename p) (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) (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: ;;; The switches:
;;; -o <struct> Open the structure in current package. ;;; -o <struct> Open the structure in current package.