From 31654e2babf33907914053ea1653bd465a625e51 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 25 Sep 2007 08:36:55 +0000 Subject: * Makefile.pamphlet (<>): Remove. (<>): Likewise. (<>): Likewise. * bc-matrix.boot.pamphlet: Push into BOOT package. * bc-util.boot.pamphlet: Likewise. * br-prof.boot.pamphlet: Likewise. --- src/interp/br-prof.boot.pamphlet | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/interp/br-prof.boot.pamphlet') 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 @@ <<*>>= <> +)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 == -- cgit v1.2.3