aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-prof.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-20 05:08:05 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-20 05:08:05 +0000
commitad4542e0a85404bc38411060e5994ed11313a33a (patch)
treefcfb56e725c9d2c73a416bc72afb6953b332d7ff /src/interp/br-prof.boot
parent09469d002d15b88c105731142bce403a1aa5a21b (diff)
downloadopen-axiom-ad4542e0a85404bc38411060e5994ed11313a33a.tar.gz
more cleanup
Diffstat (limited to 'src/interp/br-prof.boot')
-rw-r--r--src/interp/br-prof.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot
index dfd58e59..c9eae539 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot
@@ -78,7 +78,7 @@ dbShowInfoOp(htPage,op,sig,alist) ==
kind = 'category =>
[makeDefaultPackageName symbolName conname,"$",:rest conform]
conform
- faTypes := CDDAR getConstructorModemapFromDB conname
+ faTypes := getConstructorModemapFromDB(conname).mmSource
conArgTypes :=
applySubst(pairList($FormalMapVariableList,IFCDR conform),faTypes)