From ed27313ddc520ba88e50489f11112bb08e153e3e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 10 Nov 2007 06:56:02 +0000 Subject: src/algebra/ 2007-11-10 Gabriel Dos Reis * 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 * Makefile.pamphlet (nrungo.$(FASLEXT)): New rule. (nruntime.$(FASLEXT)): Likewise. (<>): Remove. (<>): Likewise. * nrungo.boot.pamphlet: Push into package "BOOT". Fix syntax. * nruntime.boot.pamphlet: Push into package "BOOT". --- src/interp/nrungo.boot.pamphlet | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/interp/nrungo.boot.pamphlet') 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 @@ <<*>>= <> +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]) -- cgit v1.2.3