diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-07 14:04:03 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-07 14:04:03 +0000 |
commit | 8bb0285d95781908ccf43c68fb6e77dddcfd2957 (patch) | |
tree | fc40faa45635542e8b401db3784b04ad7bea9ab7 /src/interp/compiler.boot | |
parent | 682a48e0c01c5cc090858c8300857ef5d01d30ba (diff) | |
download | open-axiom-8bb0285d95781908ccf43c68fb6e77dddcfd2957.tar.gz |
* interp/compiler.boot (compReduce1): Tidy.
* interp/define.boot (compDefineCategory2): Likewise.
* interp/nruncomp.boot (buildFunctor): Likewise.
* interp/slam.boot (compileRecurrenceRelation): Likewise.
* interp/lisp-backend.boot (expandSeq): Use PROGN in absence of EXIT.
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 59ea4e90..14dd801c 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -2418,9 +2418,10 @@ compReduce1(form is ["REDUCE",op,.,collectForm],m,e,$formalArgList) == finalCode := ['%loop, ['%init,accu,'%nil],['%init,firstTime,'%true],:itl, ['%bind,[[b,third bval]], - ['%when,[firstTime,move],['%otherwise,update]], - ['%store,firstTime,'%false]], - ['%when,[firstTime,nval],['%otherwise,accu]]] + ['%seq, + ['%when,[firstTime,move],['%otherwise,update]], + ['%store,firstTime,'%false]]], + ['%when,[firstTime,nval],['%otherwise,accu]]] T := coerce([finalCode,mode,e],m) or return nil [T.expr,T.mode,oldEnv] |