From 7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 9 May 2010 01:35:42 +0000 Subject: * 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. --- src/interp/define.boot | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/interp/define.boot') 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) -- cgit v1.2.3