diff options
Diffstat (limited to 'src/interp/br-prof.boot')
| -rw-r--r-- | src/interp/br-prof.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot index bbb36293..7d916543 100644 --- a/src/interp/br-prof.boot +++ b/src/interp/br-prof.boot @@ -80,7 +80,7 @@ dbShowInfoOp(htPage,op,sig,alist) == kind = 'category => [INTERN STRCONC(PNAME conname,'"&"),"$",:CDR conform] conform - faTypes := CDDAR getConstructorModemap conname + faTypes := CDDAR getConstructorModemapFromDB conname conArgTypes := SUBLISLIS(IFCDR conform,TAKE(#faTypes,$FormalMapVariableList),faTypes) @@ -262,7 +262,7 @@ getInfoAlist conname == return nil alist := mySort READ inStream if cat? then - [.,dollarName,:.] := GETDATABASE(conname,'CONSTRUCTORFORM) + [.,dollarName,:.] := getConstructorFormFromDB conname alist := SUBST("$",dollarName,alist) alist |