aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-util.boot
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2016-01-20 05:31:00 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2016-01-20 05:31:00 -0800
commite572854c495b63ee446831a7d61a27e5bc84550f (patch)
tree47a8fb57dc01e56c6b5ac0fabcf901064491a46a /src/interp/br-util.boot
parent7ce0611cdcc235063e66cd291bf20474dc40668c (diff)
downloadopen-axiom-e572854c495b63ee446831a7d61a27e5bc84550f.tar.gz
getConstructorArgsFromDB: remove as redundant.
Diffstat (limited to 'src/interp/br-util.boot')
-rw-r--r--src/interp/br-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index e8d82f6c..a649ec76 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -273,7 +273,7 @@ getConstructorForm name ==
name = 'Enumeration => '(Enumeration a b)
getConstructorFormFromDB name
-getConstructorArgs conname == rest getConstructorForm conname
+getConstructorArgs conname == getConstructorForm(conname).args
bcComments(comments,:options) ==
italics? := not IFCAR options