diff options
author | dos-reis <gdr@axiomatics.org> | 2008-12-14 23:29:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-12-14 23:29:08 +0000 |
commit | d338fac5f30034125dceaf6ab952018d8cba5a76 (patch) | |
tree | f7f052dc9aa02fb9a083512380ba0ef5ddc27676 /src/interp/wi2.boot | |
parent | 58ad76c4d99b58ebda2f24ac0f88bbccedbc7135 (diff) | |
download | open-axiom-d338fac5f30034125dceaf6ab952018d8cba5a76.tar.gz |
r12459@gauss: gdr | 2008-12-12 18:18:31 -0600
Tidy compApplyModemap.
r12460@gauss: gdr | 2008-12-13 09:24:50 -0600
Tidy compMapCond.
r12461@gauss: gdr | 2008-12-13 10:24:14 -0600
Activate compViableModemap.
r12462@gauss: gdr | 2008-12-13 11:18:17 -0600
Remove pmatch and pmatchWithSl out of main compiler.
r12463@gauss: gdr | 2008-12-13 12:26:44 -0600
Tidy compApplyModemap.
r12464@gauss: gdr | 2008-12-13 16:39:28 -0600
Add compExclusiveOr.
r12465@gauss: gdr | 2008-12-13 16:54:58 -0600
.
r12466@gauss: gdr | 2008-12-14 15:01:33 -0600
Tidy compLogicalNot.
Diffstat (limited to 'src/interp/wi2.boot')
-rw-r--r-- | src/interp/wi2.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index 85969666..46075fdb 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -542,7 +542,7 @@ compFormWithModemap1(form,m,e,modemap,Rep2Dollar?) == not (target':= coerceable(target,m,e)) => nil markMap := map map:= [target',:rest map] - [f,Tl,sl]:= compApplyModemap(form,modemap,e,nil) or return nil + [f,Tl,sl]:= compApplyModemap(form,modemap,e) or return nil --generate code; return T:= @@ -605,7 +605,8 @@ compElt(origForm,m,E) == compForm(origForm,m,E) pause op == op -compApplyModemap(form,modemap,$e,sl) == +compApplyModemap(form,modemap,$e) == + sl := nil [op,:argl] := form --form to be compiled [[mc,mr,:margl],:fnsel] := modemap --modemap we are testing |