aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-output.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r--src/interp/i-output.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index 901dbed4..e36eb56b 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -1641,7 +1641,7 @@ getOutputAbbreviatedForm form ==
form is [op,:argl] =>
op in '(Union Record) => outputDomainConstructor form
op is "Mapping" => formatMapping argl
- u:= constructor? op or op
+ u:= getConstructorAbbreviationFromDB op or op
null argl => u
ml:= getPartialConstructorModemapSig(op)
argl:= [fn for x in argl for m in ml] where fn() ==