aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-01-11 00:19:02 +0000
committerdos-reis <gdr@axiomatics.org>2009-01-11 00:19:02 +0000
commit3abfe0a7f15ff760fe7c6f95957f705e1301bfc6 (patch)
treed69a7974c8503588821d8cd5402eecb17ef3d675 /src/interp
parentd813447db270d12283436a70e3ed6ef6887016e0 (diff)
downloadopen-axiom-3abfe0a7f15ff760fe7c6f95957f705e1301bfc6.tar.gz
Fix SF/2491986
* interp/i-syscmd.boot (displayValue): Fix thinko. * testsuite/interpreter/sf-2491986.input (a): New.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/i-syscmd.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index a64c0d97..c936105e 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1266,7 +1266,7 @@ displayValue($op,u,omitVariableNameIfTrue) ==
STRCONC('"Value of ", PNAME $op,'": ")
labmode := prefix2String objMode(u)
if ATOM labmode then labmode := [labmode]
- getConstructorKindFromDB expr = "domain" =>
+ IDENTP expr and getConstructorKindFromDB expr = "domain" =>
sayMSG concat('" ",label,labmode,rhs,form2String expr)
mathprint ['CONCAT,label,:labmode,rhs,
outputFormat(expr,objMode(u))]