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/slam.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/slam.boot')
-rw-r--r-- | src/interp/slam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index 1f1f7d9e..64e5159a 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -294,7 +294,7 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == returnValue:= ["PROGN",newStateCode,first gsList] cbody:= endTest:= - ['%when, [["EQL",sharpArg,gIndex],['RETURN,returnValue]]] + ['%when, [['%ieq,sharpArg,gIndex],['RETURN,returnValue]]] newValueCode:= ["%LET",g,substitute(gIndex,sharpArg, applySubst(pairList(rest $TriangleVariableList,gsList),body))] ['%bind,decomposeBindings, |