diff options
| -rw-r--r-- | src/interp/c-doc.boot | 2 | ||||
| -rw-r--r-- | src/interp/clam.boot | 2 | ||||
| -rw-r--r-- | src/interp/format.boot | 10 | ||||
| -rw-r--r-- | src/interp/i-code.boot | 2 | ||||
| -rw-r--r-- | src/interp/i-coerce.boot | 2 | ||||
| -rw-r--r-- | src/interp/i-eval.boot | 2 | ||||
| -rw-r--r-- | src/interp/i-output.boot | 4 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
8 files changed, 13 insertions, 13 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index bb92d222..5ccc98ce 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -136,7 +136,7 @@ finalizeDocumentation() == if u := [sig for [sig,:doc] in docList | null doc] then for y in u repeat y = 'constructor => noHeading := true - y is [x,b] and b is [='attribute,:r] => + y is [x,b] and b is ['attribute,:r] => attributes := [[x,:r],:attributes] signatures := [y,:signatures] name := first $lisplibForm diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 5d1d5771..2adb438b 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -380,7 +380,7 @@ reportCircularCacheStats(fn,n) == infovec:= GETL(fn,'cacheInfo) circList:= eval infovec.cacheName numberUsed := - +/[1 for i in 1..n for x in circList while x isnt [='_$failed,:.]] + +/[1 for i in 1..n for x in circList while x isnt ['_$failed,:.]] sayBrightly ["%b",fn,"%d","has","%b",numberUsed,"%d","/ ",n," values cached"] displayCacheFrequency mkCircularCountAlist(circList,n) TERPRI() diff --git a/src/interp/format.boot b/src/interp/format.boot index f322e9a0..90030763 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -460,7 +460,7 @@ formArguments2String(argl,ml) == [fn(x,m) for x in argl for m in ml] where fn(x,m) == x=$EmptyMode or x=$quadSymbol => specialChar 'quad string?(x) or IDENTP(x) => x - x is [ ='_:,:.] => form2String1 x + x is ['_:,:.] => form2String1 x isValidType(m) and cons?(m) and (getConstructorKindFromDB first(m) = "domain") => (x' := coerceInteractive(objNewWrap(x,m),$OutputForm)) => @@ -494,14 +494,14 @@ formatJoinKey(r,key) == key = 'mkCategory => r is [opPart,catPart,:.] => opString := - opPart is [='LIST,:u] => + opPart is ['LIST,:u] => "append"/[concat("%l",formatOpSignature(op,sig),formatIf pred) - for [='QUOTE,[[op,sig],pred]] in u] + for ['QUOTE,[[op,sig],pred]] in u] nil catString := - catPart is [='LIST,:u] => + catPart is ['LIST,:u] => "append"/[concat("%l",'" ",form2StringLocal con,formatIf pred) - for [='QUOTE,[con,pred]] in u] + for ['QUOTE,[con,pred]] in u] nil concat(opString,catString) '"?? unknown mkCategory format ??" diff --git a/src/interp/i-code.boot b/src/interp/i-code.boot index 4e27a17a..5794e271 100644 --- a/src/interp/i-code.boot +++ b/src/interp/i-code.boot @@ -84,7 +84,7 @@ intCodeGenCOERCE(triple,t2) == t2 = '(Any) => objNew(['CONS,MKQ t1,val],t2) -- optimize coerces from Any - (t1 = '(Any)) and (val is [ ='CONS,t1',val']) => + (t1 = '(Any)) and (val is ['CONS,t1',val']) => intCodeGenCOERCE(objNew(val',removeQuote t1'),t2) -- specially handle coerce from Equation to Boolean diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index de699da9..a891b567 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -547,7 +547,7 @@ canCoerceUnion(t1,t2) == for ud1 in unionDoms1] or/[canCoerce(t1,ud) for ud in unionDoms2] -- next, a little lie - t1 is ['Union,d1, ='"failed"] and t2 = d1 => true + t1 is ['Union,d1,'"failed"] and t2 = d1 => true isUnion1 => and/[canCoerce(ud,t2) for ud in unionDoms1] keyedSystemError("S2GE0016",['"canCoerceUnion", diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index ba779085..509d247d 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -216,7 +216,7 @@ makeOrdinal i == evaluateSignature sig == -- calls evaluateType on a signature - sig is [ ='SIGNATURE,fun,sigl] => + sig is ['SIGNATURE,fun,sigl] => ['SIGNATURE,fun, [(t = '_$ => t; evaluateType(t)) for t in sigl]] sig diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index a05df223..4801bbf1 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -568,11 +568,11 @@ outputTran x == ["+",a,["-",b]] -- next stuff translates exp(log(foo4)/foo3) into ROOT(foo4,foo3) - (x is ["**", ='"%e",foo1]) and (foo1 is [ ='"/",foo2, foo3]) and + (x is ["**",'"%e",foo1]) and (foo1 is ['"/",foo2, foo3]) and integer?(foo3) and (foo2 is ['log,foo4]) => foo3 = 2 => ['ROOT,outputTran foo4] ['ROOT,outputTran foo4,outputTran foo3] - (x is ["**", ='"%e",foo1]) and (foo1 is [op',foo2, foo3]) and + (x is ["**",'"%e",foo1]) and (foo1 is [op',foo2, foo3]) and (op' = '"*") and ((foo3 is ['log,foo4]) or (foo2 is ['log,foo4])) => foo3 is ['log,foo4] => ["**", outputTran foo4, outputTran foo2] diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index a3427d0f..92ccc0f7 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -657,7 +657,7 @@ deepChaseInferences(pred,$e) == vectorLocation(op,sig) == u := or/[i for i in 1.. for u in $NRTdeltaList - | u is [=op,[='$,: xsig],:.] and sig=NRTsubstDelta(xsig) ] + | u is [=op,['$,: xsig],:.] and sig=NRTsubstDelta(xsig) ] u => $NRTdeltaLength - u + $NRTbase nil -- this signals that calls should be forwarded |