diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-18 03:51:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-18 03:51:28 +0000 |
| commit | f6e5de243353518085fbd39be9daef1f121a96e3 (patch) | |
| tree | 0540e540bb30845fccfc795c3f41807d4cd52088 /src/interp/nruncomp.boot | |
| parent | 3691e956e1428f08363a0ed37e3f4f0f79b89ec0 (diff) | |
| download | open-axiom-f6e5de243353518085fbd39be9daef1f121a96e3.tar.gz | |
Rename %veclit to %vector and %listlit to %list
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index f09d5b67..7eb5e004 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, - :[['%listlit,MKQ '_:,MKQ tag,consDomainName(dom,dc)] + :[['%list,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 ['%listlit] => nil + u is ['%list] => nil u is [op,.,i,a] and op in '(setShellEntry QSETREFV) => null condList and a is ['CONS,fn,:.] => - u.first := '%listlit + u.first := '%list u.rest := nil $template.i := fn = 'IDENTITY => a @@ -397,7 +397,7 @@ washFunctorBody form == main form where stmts = nil => nil rest stmts = nil => first stmts ["PROGN",:stmts] - x is ['%listlit] => nil + x is ['%list] => nil x buildFunctor($definition is [name,:args],sig,code,$locals,$e) == @@ -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,['%listlit,MKQ name,:ASSOCRIGHT $devaluateList]] + [domname,['%list,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:= ['%listlit,:ASSOCRIGHT $devaluateList] + args:= ['%list,:ASSOCRIGHT $devaluateList] addToConstructorCache(name,args,shell) changeDirectoryInSlot1() == --called by buildFunctor |