diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-26 19:40:22 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-26 19:40:22 +0000 |
commit | 908960a455e09bf5440ab87ed288efc989f8b29e (patch) | |
tree | 1a5b46323e66a6302d10b4e1da8e9af6f8fdb4c1 /src/interp/nruncomp.boot | |
parent | d093a22f14e8f669b08ac407b4a2d6fc32d1e2ae (diff) | |
download | open-axiom-908960a455e09bf5440ab87ed288efc989f8b29e.tar.gz |
Replace more occurences of LIST with %listlit.
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 8674d9b8..2d2a0184 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -333,7 +333,7 @@ consDomainName(x,dc) == x is [op,:argl] => (op = 'Record) or (op = 'Union and argl is [[":",:.],:.]) => mkList [MKQ op, - :[['LIST,MKQ '_:,MKQ tag,consDomainName(dom,dc)] + :[['%listlit,MKQ '_:,MKQ tag,consDomainName(dom,dc)] for [.,tag,dom] in argl]] isFunctor op or op = 'Mapping or constructor? op => -- call to constructor? needed if op was compiled in $bootStrapMode @@ -364,10 +364,10 @@ consDomainForm(x,dc) == ++ of compiled functions NRTdescendCodeTran(u,condList) == null u => nil - u is ['LIST] => nil + u is ['%listlit] => nil u is [op,.,i,a] and op in '(setShellEntry QSETREFV) => null condList and a is ['CONS,fn,:.] => - u.first := 'LIST + u.first := '%listlit u.rest := nil $template.i := fn = 'IDENTITY => a @@ -486,7 +486,7 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == createViewCode,createPredVecCode] where devaluateCode:= [[b,["devaluate",a]] for [a,:b] in $devaluateList] createDomainCode:= - [domname,['LIST,MKQ name,:ASSOCRIGHT $devaluateList]] + [domname,['%listlit,MKQ name,:ASSOCRIGHT $devaluateList]] createViewCode:= ["$",["newShell", $NRTbase + $NRTdeltaLength]] createPredVecCode := ["pv$",predBitVectorCode1] @@ -610,7 +610,7 @@ NRToptimizeHas u == NRTaddToSlam([name,:argnames],shell) == $mutableDomain => return nil null argnames => addToConstructorCache(name,nil,shell) - args:= ['LIST,:ASSOCRIGHT $devaluateList] + args:= ['%listlit,:ASSOCRIGHT $devaluateList] addToConstructorCache(name,args,shell) changeDirectoryInSlot1() == --called by buildFunctor |