diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 004acbb0..cb237c12 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1895,10 +1895,7 @@ compMapCondFun(fnexpr,op,dc,bindings) == --% Interface to the backend compileFileQuietly path == - $OutputStream := - $InteractiveMode => MAKE_-BROADCAST_-STREAM() - MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" - COMPILE_-FILE path + quietlyIfInteractive COMPILE_-FILE path compAndDefine l == _*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN" @@ -1910,11 +1907,7 @@ compQuietly fn == $compileDontDefineFunctions => "COMPILE-DEFUN" "EVAL-DEFUN" "PRINT-DEFUN" - -- create a null outputstream if $InteractiveMode - $OutputStream := - $InteractiveMode => MAKE_-BROADCAST_-STREAM() - MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" - COMP fn + quietlyIfInteractive COMP fn compileQuietly fn == _*COMP370_-APPLY_* := @@ -1922,10 +1915,7 @@ compileQuietly fn == $compileDontDefineFunctions => "COMPILE-DEFUN" "EVAL-DEFUN" "PRINT-DEFUN" - $OutputStream := - $InteractiveMode => MAKE_-BROADCAST_-STREAM() - MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" - COMP370 fn + quietlyIfInteractive COMP370 fn COMP l == |