diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-14 01:09:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-14 01:09:16 +0000 |
| commit | fabbf02ee4b80241b75826536502c2d683e8462e (patch) | |
| tree | b1b9a9269a716958cf4e65312c6d7e5a9a0bbf5b /src/interp/br-op2.boot.pamphlet | |
| parent | b9a4b6948e221b8e4fcd62ed69dd5713e0b8fbf7 (diff) | |
| download | open-axiom-fabbf02ee4b80241b75826536502c2d683e8462e.tar.gz | |
* Makefile.pamphlet (br-search.$(FASLEXT)): New rule.
(br-saturn.$(FASLEXT)): Likewise.
(br-op2.$(FASLEXT)): Likewise.
(br-op1.$(FASLEXT)): Likewise.
(br-con.$(FASLEXT)): Likewise.
(br-data.$(FASLEXT)): Likewise.
(br-util.$(FASLEXT)): Likewise.
(<<br-search.clisp>>): Remove.
(<<br-saturn.clisp>>): Likewise.
(<<br-op2.clisp>>): Likewise.
(<<br-op1.clisp>>): Likewise.
(<<br-con.clisp>>): Likewise.
(<<br-data.clisp>>): Likewise.
(<<br-util.clisp>>): Likewise.
* br-search.boot.pamphlet: Push into package "BOOT". Fix syntax.
* br-saturn.boot.pamphlet: Likewise.
* br-op2.boot.pamphlet: Likewise.
* br-op1.boot.pamphlet: Likewise.
* br-con.boot.pamphlet: Likewise.
* br-data.boot.pamphlet: Likewise.
* br-util.boot.pamphlet: Likewise.
Diffstat (limited to 'src/interp/br-op2.boot.pamphlet')
| -rw-r--r-- | src/interp/br-op2.boot.pamphlet | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/interp/br-op2.boot.pamphlet b/src/interp/br-op2.boot.pamphlet index 3fca3f73..58056718 100644 --- a/src/interp/br-op2.boot.pamphlet +++ b/src/interp/br-op2.boot.pamphlet @@ -50,6 +50,9 @@ <<*>>= <<license>> +import '"br-op1" +)package "BOOT" + --====================> WAS br-op2.boot <================================ --======================================================================= @@ -434,7 +437,7 @@ whoUsesOperation(htPage,which,key) == --see dbPresentOps sofar := LASSOC(opsig,nopAlist) nopAlist := insertAlist(opsig,[name,:LASSOC(opsig,nopAlist)],nopAlist) usedList := nil - for [(pair := [op,:sig]),:namelist] in nopAlist repeat + for [pair := [op,:sig],:namelist] in nopAlist repeat ops := escapeSpecialChars STRINGIMAGE op usedList := [pair,:usedList] htSay('"Users of {\em ",ops,'": ") @@ -523,7 +526,7 @@ koAttrs(conform,domname) == koOps(conform,domname,:options) == main where --returns alist of form ((op (sig . pred) ...) ...) - main == + main() == $packageItem: local := nil -- relatives? := IFCAR options ours := @@ -597,7 +600,7 @@ koCatOps(conform,domname) == [[zeroOneConvert op,:nalist] for [op,:alist] in oplist | nalist := koCatOps1(alist)] koCatOps1 alist == [x for item in alist | x := pair] where - pair == + pair() == [sig,:r] := item null r => [sig,true] [key,:options] := r @@ -662,7 +665,7 @@ dbHeading(items,which,heading,:options) == [:prefix,'" for ",:heading] koaPageFilterByCategory1(htPage,i) == - ancestor := htpProperty(htPage,'ancestors) . i + ancestor := (htpProperty(htPage,'ancestors)) . i ancestorList := [ancestor,:ASSOCLEFT ancestorsOf(ancestor,nil)] newOpAlist := nil which := htpProperty(htPage,'which) @@ -673,7 +676,7 @@ koaPageFilterByCategory1(htPage,i) == docTable := dbDocTable(domname or conform) for [op,:alist] in opAlist repeat nalist := [[origin,:item] for item in alist | split] - where split == + where split() == [sig,pred,:aux] := item u := dbGetDocTable(op,sig,docTable,which,aux) origin := IFCAR u @@ -707,7 +710,7 @@ opPageFastPath opstring == charPosition(char '_*,x,0) < #x => nil --quit if name has * in it op := (STRINGP x => INTERN x; x) mmList := getAllModemapsFromDatabase(op,nil) or return nil - opAlist := [[op,:[item for mm in mmList]]] where item == + opAlist := [[op,:[item for mm in mmList]]] where item() == [predList, origin, sig] := modemap2Sig(op, mm) predicate := predList and MKPF(predList,'AND) exposed? := isExposedConstructor opOf origin |