diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 01:35:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 01:35:42 +0000 |
commit | 7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63 (patch) | |
tree | 70c495c4f317f6a66c547c42162ef7c49c4c92f2 /src/interp/define.boot | |
parent | 3f5e2de70e2d7444bfb5fa1d6e33bb9ac2dee102 (diff) | |
download | open-axiom-7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63.tar.gz |
* interp/c-util.boot: Replace uses of rplac with explicit
assignments to first and rest fields.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/wi1.boot: Likewise.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 5e881828..a08df9de 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1496,17 +1496,17 @@ doItConditionally(item,predl) == item isnt ["IF",p,x,y] => systemErrorHere ["doItConditionally",item] p is ["not",p'] => -- swap branches and recurse for positive interpretation. - rplac(second item,p') - rplac(third item,y) - rplac(fourth item,x) + item.rest.first := p' + item.rest.rest.first := y + item.rest.rest.rest.first := x doItConditionally(item,predl) p is ["and",p',p''] => - rplac(second item,p') - rplac(third item,["IF",p'',x,COPY y]) + item.rest.first := p' + item.rest.rest.first := ["IF",p'',x,COPY y] doItConditionally(item,predl) p is ["or",p',p''] => - rplac(second item, p') - rplac(fourth item, ["IF",p'',COPY x,y]) + item.rest.first := p' + item.rest.rest.rest.first := ["IF",p'',COPY x,y] doItConditionally(item,predl) doItIf(item,predl,$e) |