From ad4542e0a85404bc38411060e5994ed11313a33a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 20 May 2011 05:08:05 +0000
Subject: more cleanup

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

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

diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot
index 311fd85f..e4d2ba6b 100644
--- a/src/interp/br-search.boot
+++ b/src/interp/br-search.boot
@@ -316,7 +316,7 @@ conform2OutputForm(form) ==
   [op,:args] := form
   null args => form
   cosig := rest getDualSignatureFromDB op
-  atypes := rest CDAR getConstructorModemapFromDB op
+  atypes := getConstructorModemapFromDB(op).mmSource
   sargl := [fn for x in args for atype in atypes for pred in cosig] where fn() ==
     pp [x,atype,pred]
     pred => conform2OutputForm x
-- 
cgit v1.2.3