aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-toplev.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-08-25 22:12:54 +0000
committerdos-reis <gdr@axiomatics.org>2010-08-25 22:12:54 +0000
commit5a9b61c826838b7f97db1ad3b3c350482d407377 (patch)
tree3323b95d8ee99ab8de95dce9068878eca4a4d531 /src/interp/i-toplev.boot
parent7ffa34642e7d2671da8664936befb5fcd78c37c0 (diff)
downloadopen-axiom-5a9b61c826838b7f97db1ad3b3c350482d407377.tar.gz
* interp/i-output.boot (newlineIfDisplaying): New.
(mathprintWithNumber): Take type of value as second argument. (maprinChk): Tidy. (maprinRows): Likewise. (spadPrint): Likewise. (output): Likewise. (printMap): Likewise. (bracketagglist): Likewise. (mathPrint): Likewise. (mathPrint1): Likewise. * interp/i-toplev.boot (recordAndPrint): Likewise. * interp/setvart.boot: Introduce flag for asgard forms.
Diffstat (limited to 'src/interp/i-toplev.boot')
-rw-r--r--src/interp/i-toplev.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot
index c0f786f2..416537f3 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -195,7 +195,7 @@ recordAndPrint(x,md) ==
$outputMode: local := md --used by DEMO BOOT
mode:= (md=$EmptyMode => quadSch(); md)
if (md ~= $Void) or $printVoidIfTrue then
- if null $collectOutput then TERPRI $algebraOutputStream
+ newlineIfDisplaying()
if $QuietCommand = false then
output(x',md')
putHist('%,'value,objNewWrap(x,md),$e)