aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBill Page <bill.page@newsynthesis.org>2008-05-30 00:22:15 +0000
committerBill Page <bill.page@newsynthesis.org>2008-05-30 00:22:15 +0000
commit80f04bfc96aa07a99eadc794b3ed4d276410a086 (patch)
tree6853557e540fd1eefed913b28c4cf7059a0cb661
parent54a6b006a39fd52cb0110e4ae3e2cec8e2708ec6 (diff)
downloadopen-axiom-80f04bfc96aa07a99eadc794b3ed4d276410a086.tar.gz
Fix typo in getConstructorKindFromDB
-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 cd46b09b..0c7d6258 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1111,7 +1111,7 @@ displayValue($op,u,omitVariableNameIfTrue) ==
STRCONC('"Value of ", PNAME $op,'": ")
labmode := prefix2String objMode(u)
if ATOM labmode then labmode := [labmode]
- getConstructorKindDB expr = "domain" =>
+ getConstructorKindFromDB expr = "domain" =>
sayMSG concat('" ",label,labmode,rhs,form2String expr)
mathprint ['CONCAT,label,:labmode,rhs,
outputFormat(expr,objMode(u))]