aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-prof.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-prof.boot')
-rw-r--r--src/interp/br-prof.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot
index 8cb80ce6..149e63a0 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot
@@ -82,8 +82,8 @@ dbShowInfoOp(htPage,op,sig,alist) ==
conform
faTypes := CDDAR getConstructorModemapFromDB conname
- conArgTypes :=
- applySubst(pairList(TAKE(#faTypes,$FormalMapVariableList),IFCDR conform),faTypes)
+ conArgTypes :=
+ applySubst(pairList($FormalMapVariableList,IFCDR conform),faTypes)
conform := htpProperty(htPage,'conform)
conname := opOf conform
--argTypes := reverse ASSOCRIGHT symbolLassoc('arguments,alist)