aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-09-26 13:49:18 +0000
committerdos-reis <gdr@axiomatics.org>2009-09-26 13:49:18 +0000
commit91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch)
tree2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/br-util.boot
parent868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff)
downloadopen-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz
* interp/: More cleanup.
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 ca0e004d..8ab7c4ec 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -278,7 +278,7 @@ getConstructorForm name ==
name = 'Enumeration => '(Enumeration a b)
getConstructorFormFromDB name
-getConstructorArgs conname == CDR getConstructorForm conname
+getConstructorArgs conname == rest getConstructorForm conname
bcComments(comments,:options) ==
italics? := not IFCAR options