diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index ab55f37d..f2eec13e 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -102,9 +102,9 @@ deltaTran(item,compItem) == -- NOTE: sig is already in encoded form since it comes from $NRTdeltaList; -- so we need only encode dc. -- gdr 2008-11-28. dcCode := - dc = '$ => 0 + dc is '$ => 0 NRTassocIndex dc or keyedSystemError("S2NR0004",[dc]) - kindFlag:= (kind = 'CONST => 'CONST; nil) + kindFlag:= (kind is 'CONST => 'CONST; nil) [sig,dcCode,op,:kindFlag] NRTreplaceAllLocalReferences(form) == @@ -140,13 +140,13 @@ NRTencode(x,y) == encode(x,y,true) where encode(x,compForm,firstTime) == --------------FUNCTIONS CALLED DURING CAPSULE FUNCTION COMPILATION------------- listOfBoundVars form == -- Only called from the function genDeltaEntry below - form = '$ => [] + form is '$ => [] IDENTP form and (u:=get(form,'value,$e)) => u:=u.expr KAR u in '(Union Record) => listOfBoundVars u [form] atom form => [] - first form = 'QUOTE => [] + first form is 'QUOTE => [] -- We don't want to pick up the tag, only the domain first form = ":" => listOfBoundVars third form first form = "Enumeration" => [] @@ -165,7 +165,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) == $killOptimizeIfTrue = true => nil -- references to modemaps from current domain are folded in a later -- stage of the compilation process. - dc = '$ => nil + dc is '$ => nil ndc := atom dc and (dcval := get(dc,'value,$e)) => dcval.expr dc @@ -198,8 +198,8 @@ genDeltaEntry(opMmPair,e) == --$NRTdeltaLength=0.. always equals length of $NRTdeltaList [op,[dc,:sig],[.,cform:=[eltOrConst,.,nsig]]] := opMmPair if $profileCompiler = true then profileRecord(dc,op,sig) - eltOrConst = 'XLAM => cform - if eltOrConst = 'Subsumed then eltOrConst := 'ELT + eltOrConst is 'XLAM => cform + if eltOrConst is 'Subsumed then eltOrConst := 'ELT if atom dc then dc = "$" => nsig := sig if integer? nsig then nsig := MSUBST("$",dc,substitute("$$","$",sig)) @@ -311,7 +311,7 @@ NRTaddInner x == NRTinnerGetLocalIndex y x is ['SubDomain,y,:.] => NRTinnerGetLocalIndex y getConstructorSignature first x is [.,:ml] => - for y in rest x for m in ml | not (y = '$) repeat + for y in rest x for m in ml | y isnt '$ repeat isCategoryForm(m,$CategoryFrame) => NRTinnerGetLocalIndex y x is ["Enumeration",:.] => for y in rest x repeat NRTinnerGetLocalIndex y @@ -331,14 +331,14 @@ consSig(sig,dc) == [consDomainName(sigpart,dc) for sigpart in sig] consDomainName(x,dc) == x = dc => ''$ - x = '$ => ''$ - x = "$$" => ['devaluate,'$] + x is '$ => ''$ + x is "$$" => ['devaluate,'$] x is [op,:argl] => - (op = 'Record) or (op = 'Union and argl is [[":",:.],:.]) => + (op is 'Record) or (op is 'Union and argl is [[":",:.],:.]) => mkList [MKQ op, :[['%list,MKQ '_:,MKQ tag,consDomainName(dom,dc)] for [.,tag,dom] in argl]] - isFunctor op or op = 'Mapping or constructor? op => + isFunctor op or op is 'Mapping or constructor? op => -- call to constructor? needed if op was compiled in $bootStrapMode mkList [MKQ op,:[consDomainName(y,dc) for y in argl]] substitute('$,"$$",x) @@ -352,7 +352,7 @@ consDomainName(x,dc) == MKQ x consDomainForm(x,dc) == - x = '$ => '$ + x is '$ => '$ x is [op,:argl] => op = ":" and argl is [tag, value] => [op, tag, consDomainForm(value,dc)] [op,:[consDomainForm(y,dc) for y in argl]] @@ -373,7 +373,7 @@ NRTdescendCodeTran(u,condList) == u.first := '%list u.rest := nil $template.i := - fn = 'IDENTITY => a + fn is 'IDENTITY => a fn is ['dispatchFunction,fn'] => fn' fn nil --code for this will be generated by the instantiator @@ -411,7 +411,7 @@ stuffSlot(dollar,i,item) == atom item => [symbolFunction item,:dollar] item is [n,:op] and integer? n => ['newGoGet,dollar,:item] item is ['CONS,.,['FUNCALL,a,b]] => - b = '$ => ['makeSpadConstant,eval a,dollar,i] + b is '$ => ['makeSpadConstant,eval a,dollar,i] sayBrightlyNT '"Unexpected constant environment!!" pp devaluate b nil @@ -422,7 +422,7 @@ stuffDomainSlots dollar == infovec := GETL(opOf domname,'infovec) lookupFunction := getLookupFun infovec lookupFunction := - lookupFunction = 'lookupIncomplete => function lookupIncomplete + lookupFunction is 'lookupIncomplete => function lookupIncomplete function lookupComplete template := infovec.0 if vectorRef(template,5) then @@ -610,7 +610,7 @@ reverseCondlist cl == alist NRTsetVector4a(sig,form,cond) == - sig = '$ => + sig is '$ => domainList := [simplifyVMForm COPY comp(d,$EmptyMode,$e).expr or d for d in $domainShell.4.0] @@ -658,7 +658,7 @@ NRToptimizeHas u == $hasCategoryAlist := [[u,:(y:=gensym())],:$hasCategoryAlist] y a="has" => NRToptimizeHas ['HasCategory,first b,MKQ second b] - a = 'QUOTE => u + a is 'QUOTE => u [NRToptimizeHas a,:NRToptimizeHas b] u @@ -675,10 +675,10 @@ changeDirectoryInSlot1() == --called by buildFunctor -- $NRTdeltaList = nil ===> all slot numbers become nil $lisplibOperationAlist := [sigloc entry for entry in $domainShell.1] where sigloc [opsig,pred,fnsel] == - if pred ~= 'T then + if pred isnt 'T then pred := simpBool pred $NRTslot1PredicateList := insert(pred,$NRTslot1PredicateList) - fnsel is [op,a,:.] and (op = 'ELT or op = 'CONST) => + fnsel is [op,a,:.] and (op is 'ELT or op is 'CONST) => if $insideCategoryPackageIfTrue then opsig := substitute('$,second($functorForm),opsig) [opsig,pred,[op,a,vectorLocation(first opsig,second opsig)]] |