From e572854c495b63ee446831a7d61a27e5bc84550f Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Wed, 20 Jan 2016 05:31:00 -0800
Subject: getConstructorArgsFromDB: remove as redundant.

---
 src/interp/br-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/br-util.boot')

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
-- 
cgit v1.2.3