diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-02 17:36:48 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-02 17:36:48 +0000 |
commit | cc44b14797968a894e92bcff4a4afe30b26dd896 (patch) | |
tree | 13573b4c2f985f3c4e93de38ef979da8ef0800d8 /src/interp/clam.boot | |
parent | e74c52066d421b027ce1be36e02dce615caac397 (diff) | |
download | open-axiom-cc44b14797968a894e92bcff4a4afe30b26dd896.tar.gz |
* interp/buildom.boot (setelt): Change SEQ to %seq.
* interp/clam.boot (compHash): Likewise.
* interp/compiler.boot (freeVarUsage): Likewise.
(canReturn): Likewise.
* interp/i-special.boot (compileIs): Likewise.
* interp/g-opt.boot (changeVariableDefinitionToStore): Likewise.
(jumpToToplevel?): Likewise.
(groupVariableDefinitions): Likewise.
(changeLeaveToExit): Likewise.
(optLabelled): Likewise.
(optSeq): Rename from optSEQ. Adjust callers.
* interp/lisp-backend.boot: Translate %seq to SEQ.
Diffstat (limited to 'src/interp/clam.boot')
-rw-r--r-- | src/interp/clam.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index cfbd0287..6c1d6c55 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -229,7 +229,7 @@ compHash(op,argl,body,cacheNameOrNil,eqEtc,countFl) == ['tableValue,cacheNameOrNil,MKQ op],MKQ eqEtc] ['lassocShift,cacheArgKey,['tableValue,cacheNameOrNil,MKQ op]] ['tableValue,cacheName,g1] - secondPredPair:= [g2,optSEQ ['SEQ,:hitCountCode,['EXIT,returnFoundValue]]] + secondPredPair:= [g2,optSeq ['%seq,:hitCountCode,['EXIT,returnFoundValue]]] putCode:= null argl => cacheNameOrNil => @@ -247,8 +247,8 @@ compHash(op,argl,body,cacheNameOrNil,eqEtc,countFl) == ['UNWIND_-PROTECT,['PROG1,putCode,['%store,g2,'%true]], ['%when,[['%not,g2],['tableRemove!,cacheName,MKQ op]]]] thirdPredPair:= ['%otherwise,putCode] - codeBody:= optSEQ - ['SEQ,:callCountCode, + codeBody:= optSeq + ['%seq,:callCountCode, ['EXIT,['%bind,[[g2,getCode]],['%when,secondPredPair,thirdPredPair]]]] lamex:= ['LAM,arg,codeBody] mainFunction:= [op,lamex] |