diff options
Diffstat (limited to 'src/interp/br-prof.boot.pamphlet')
| -rw-r--r-- | src/interp/br-prof.boot.pamphlet | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/interp/br-prof.boot.pamphlet b/src/interp/br-prof.boot.pamphlet index cf1d0e58..cc83fd57 100644 --- a/src/interp/br-prof.boot.pamphlet +++ b/src/interp/br-prof.boot.pamphlet @@ -47,6 +47,8 @@ <<*>>= <<license>> +)package "BOOT" + --====================> WAS b-prof.boot <================================ --============================================================================ @@ -68,10 +70,10 @@ kciPage(htPage,junk) == kciReduceOpAlist(opAlist,infoAlist) == --count opAlist - res := [pair for [op,:items] in opAlist | pair] where pair == + res := [pair for [op,:items] in opAlist | pair] where pair() == u := LASSOC(op,infoAlist) => y := [x for x in items - | x is [sig,:.] and or/[sig = sig1 for [sig1,:.] in u]] => [op,:y] + | x is [sig,:.] and "or"/[sig = sig1 for [sig1,:.] in u]] => [op,:y] nil nil res @@ -140,7 +142,7 @@ dbShowInfoOp(htPage,op,sig,alist) == htSay '"\menuitemstyle{} {\em calls to} " if con ^= 'Rep then htSay '"{\em argument} " htSay con - if and/[fn is ['origin,orig,.] and + if "and"/[fn is ['origin,orig,.] and (null origin and (origin := orig) or origin = orig) for fn in fns] then htSay '" {\em of type} " bcConform orig @@ -259,7 +261,7 @@ hasNewInfoAlist conname == (u := getInfoAlist conname) and hasNewInfoText u hasNewInfoText u == - and/[ATOM op and and/[item is [sig,:alist] and + and/[ATOM op and "and"/[item is [sig,:alist] and null sig or null atom sig and null atom alist for item in items] for [op,:items] in u] getInfoAlist conname == |