diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
| commit | faaf19e1912ba48e9fbd195d2b90c4e205c87538 (patch) | |
| tree | 18a81dba1f12285383ba73beaeb8febb6606ea37 /src/interp/nruncomp.boot | |
| parent | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (diff) | |
| download | open-axiom-faaf19e1912ba48e9fbd195d2b90c4e205c87538.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 85e471b6..ab55f37d 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -129,7 +129,7 @@ NRTencode(x,y) == encode(x,y,true) where encode(x,compForm,firstTime) == -- to be encoded. op = "Enumeration" => x ["NRTEVAL",NRTreplaceAllLocalReferences COPY_-TREE simplifyVMForm compForm] - MEMQ(x,$formalArgList) => + symbolMember?(x,$formalArgList) => v := $FormalMapVariableList.(POSN1(x,$formalArgList)) firstTime => ["local",v] v @@ -248,7 +248,7 @@ NRTgetLocalIndex item == k := NRTassocIndex item => k item = "$" => 0 item = "$$" => 2 - atom item and not MEMQ(item,$formalArgList) => --give slots to atoms + atom item and not symbolMember?(item,$formalArgList) => --give slots to atoms $NRTdeltaList:= [["%domain",NRTaddInner item],:$NRTdeltaList] $NRTdeltaListComp:=[item,:$NRTdeltaListComp] index := $NRTbase + $NRTdeltaLength -- slot number to return @@ -529,7 +529,7 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == argStuffCode := [['%store,['%tref,'$,i],v] for i in $NRTbase.. for v in $FormalMapVariableList for arg in args] - if MEMQ($NRTaddForm,$locals) then + if symbolMember?($NRTaddForm,$locals) then addargname := $FormalMapVariableList.(POSN1($NRTaddForm,$locals)) argStuffCode := [['%store,['%tref,'$,5],addargname],:argStuffCode] [['stuffDomainSlots,'$],:argStuffCode, |