From 7cc784fe3a7724a6269705adfb13c811c1e7b96d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 18 Nov 2007 19:33:11 +0000 Subject: src/boot/ 2007-11-18 Gabriel Dos Reis * ast.boot.pamphlet (bfReduce): Compute left reduction, not right reduction. src/interp/ 2007-11-18 Gabriel Dos Reis * Makefile.pamphlet (nrunopt.$(FASLEXT)): New rule. (<>): Remove. * define.boot: Fix syntax. * nruncomp.boot: Likewise. * nrunopt.boot.pamphlet: Push into package "BOOT". Fix syntax. * wi2.boot: Fix syntax. --- src/interp/define.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/define.boot') diff --git a/src/interp/define.boot b/src/interp/define.boot index 20238790..757d59c9 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -405,7 +405,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body], [.,.,$e]:= compMakeDeclaration([":",'_$,target],m,$e) --The following loop sees if we can economise on ADDed operations --by using those of Rep, if that is the same. Example: DIRPROD - if $insideCategoryPackageIfTrue^= true then + if not $insideCategoryPackageIfTrue then if body is ['add,ab:=[fn,:.],['CAPSULE,:cb]] and MEMQ(fn,'(List Vector)) and FindRep(cb) = ab where FindRep cb == -- cgit v1.2.3