diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-10 06:56:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-10 06:56:02 +0000 |
| commit | ed27313ddc520ba88e50489f11112bb08e153e3e (patch) | |
| tree | 098caf0726ea228c6125711ccf07f3f5978a84d6 /src/interp/nrungo.boot.pamphlet | |
| parent | 4edaea6cff2d604009b8f2723a9436b0fc97895d (diff) | |
| download | open-axiom-ed27313ddc520ba88e50489f11112bb08e153e3e.tar.gz | |
src/algebra/
2007-11-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
* Makefile.pamphlet (mostlyclean-local): Remove stamp files and
strap/ directory too.
(clean-local): Remove database directories too.
src/interpreter/
2007-11-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
* Makefile.pamphlet (nrungo.$(FASLEXT)): New rule.
(nruntime.$(FASLEXT)): Likewise.
(<<nrungo.clisp>>): Remove.
(<<nruntime.clisp>>): Likewise.
* nrungo.boot.pamphlet: Push into package "BOOT". Fix syntax.
* nruntime.boot.pamphlet: Push into package "BOOT".
Diffstat (limited to 'src/interp/nrungo.boot.pamphlet')
| -rw-r--r-- | src/interp/nrungo.boot.pamphlet | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/nrungo.boot.pamphlet b/src/interp/nrungo.boot.pamphlet index f0ecf57f..96f7aaa0 100644 --- a/src/interp/nrungo.boot.pamphlet +++ b/src/interp/nrungo.boot.pamphlet @@ -46,6 +46,9 @@ <<*>>= <<license>> +import '"c-util" +)package "BOOT" + --======================================================= -- Lookup From Interpreter --======================================================= @@ -213,7 +216,7 @@ lookupInCategories(op,sig,dom,dollar) == nsig := MSUBST(dom.0,dollar.0,sig) r := or/[lookupInDomainVector(op,nsig, eval EQSUBSTLIST(valueList,varList,catform),dollar) - for catform in catformList | pred] where pred == + for catform in catformList | pred] where pred() == (table := HGET($Slot1DataBase,first catform)) and (u := LASSQ(op,table)) --compare without checking predicates and (v := or/[rest x for x in u | #sig = #x.0]) |