diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 25d53edc..ccbcb385 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -551,7 +551,7 @@ print(x,domain) == ++ Write x as an asgard form on the standard output. outputAsgardForm(x,t) == f := ['%OBJECT,x,devaluate t] - WRITE(f,KEYWORD::STREAM,$algebraOutputStream) + WRITE(f,stream <- $algebraOutputStream) freshLine $algebraOutputStream mathprintWithNumber(x,t) == @@ -1224,7 +1224,7 @@ maprin x == if $demoFlag=true then recordOrCompareDemoResult x CATCH('output,maprin0 x) $leanMode and - WRITE($RecordSeparator,KEYWORD::STREAM,$algebraOutputStream) + WRITE($RecordSeparator,stream <- $algebraOutputStream) nil maprin0 x == |