diff options
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index ed8423ab..d53769a6 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -1016,7 +1016,8 @@ setOutputAlgebra arg == SHUT $algebraOutputStream $algebraOutputStream := testStream $algebraOutputFile := object2String filename - sayKeyedMsg("S2IV0004",['"Algebra",$algebraOutputFile]) + -- Inform of redirection only if verbosity is desired. + $verbose and sayKeyedMsg("S2IV0004",['"Algebra",$algebraOutputFile]) sayKeyedMsg("S2IV0003",[fn,ft,fm]) sayKeyedMsg("S2IV0005",NIL) |