diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-13 13:37:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-13 13:37:32 +0000 |
commit | 7184b9c19ca049b7bfab83b5a9998fdf64beab63 (patch) | |
tree | 4b13f5d30bd428fe3c859a2089fed66d3f0ef3b5 /src/interp/slam.boot | |
parent | bf49bd60354641b393c53e10b40862199fd31151 (diff) | |
download | open-axiom-7184b9c19ca049b7bfab83b5a9998fdf64beab63.tar.gz |
* interp/g-opt.boot (replaceableTemporary?): Remove.
(optSeq,getRidOfTemps): Likewise.
(optSeq): Rewrite.
* interp/slam.boot (compileRecurrenceRelation): Tidy.
Diffstat (limited to 'src/interp/slam.boot')
-rw-r--r-- | src/interp/slam.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index 64e5159a..10695b03 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -303,8 +303,8 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == fromScratchInit:= [["%LET",gIndex,n],:[["%LET",g,x] for g in gsList for x in initCode]] continueInit:= - [["%LET",gIndex,["%ELT",stateVar,0]], - :[["%LET",g,["%ELT",stateVar,i]] for g in gsList for i in 1..]] + [["%LET",gIndex,["ELT",stateVar,0]], + :[["%LET",g,["ELT",stateVar,i]] for g in gsList for i in 1..]] mainFunction:= [nam,["LAM",margl,mbody]] where margl:= [:argl,'envArg] max:= gensym() |