aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-toplev.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-12-15 14:42:13 +0000
committerdos-reis <gdr@axiomatics.org>2010-12-15 14:42:13 +0000
commit7fec31d29bd8ca5d8a2c718caeacd5a2ed006ec1 (patch)
treed1da6dea56977fdb3879c361f27ab309a8fb384d /src/interp/i-toplev.boot
parentabc74d7854a504c94f6f66d997d3a2448a0c0322 (diff)
downloadopen-axiom-7fec31d29bd8ca5d8a2c718caeacd5a2ed006ec1.tar.gz
* interp/format.boot (formDecl2String): Tidy.
* interp/i-toplev.boot (printTypeAndTimeNormal): Likewise. * interp/msgdb.boot (applyPrefix2String): Likewise.
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 09f12bed..232a8751 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -217,7 +217,7 @@ printTypeAndTimeNormal(x,m) ==
if m is ['Union, :argl] then
x' := retract(objNewWrap(x,m))
m' := objMode x'
- m := ['Union, :[arg for arg in argl | sameUnionBranch(arg, m')], '"..."]
+ m := ['Union, :[arg for arg in argl | sameUnionBranch(arg, m')], "..."]
if $printTimeIfTrue then
timeString := makeLongTimeString($interpreterTimedNames,
$interpreterTimedClasses)