aboutsummaryrefslogtreecommitdiff
path: root/src/interp/define.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-11-18 19:33:11 +0000
committerdos-reis <gdr@axiomatics.org>2007-11-18 19:33:11 +0000
commit7cc784fe3a7724a6269705adfb13c811c1e7b96d (patch)
treee7f904ee98076cd839913f84cd67516be24c312e /src/interp/define.boot
parent911b4270fa735440bcca46ffa70c3e541c806953 (diff)
downloadopen-axiom-7cc784fe3a7724a6269705adfb13c811c1e7b96d.tar.gz
src/boot/
2007-11-18 Gabriel Dos Reis <gdr@cs.tamu.edu> * ast.boot.pamphlet (bfReduce): Compute left reduction, not right reduction. src/interp/ 2007-11-18 Gabriel Dos Reis <gdr@cs.tamu.edu> * Makefile.pamphlet (nrunopt.$(FASLEXT)): New rule. (<<nrunopt.clisp>>): Remove. * define.boot: Fix syntax. * nruncomp.boot: Likewise. * nrunopt.boot.pamphlet: Push into package "BOOT". Fix syntax. * wi2.boot: Fix syntax.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r--src/interp/define.boot2
1 files changed, 1 insertions, 1 deletions
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 ==