diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-14 01:59:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-14 01:59:56 +0000 |
| commit | 663089e7f95f4901a46939ef34c60982dd5aadda (patch) | |
| tree | 591d333d98a1eaf5b3c22d57e75ece8c56f9619b /src/interp/br-prof.boot | |
| parent | c5659a8580de5b531891c6703465c84add9fbb1b (diff) | |
| download | open-axiom-663089e7f95f4901a46939ef34c60982dd5aadda.tar.gz | |
Various cleanups.
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 |