diff options
Diffstat (limited to 'src/interp/i-code.boot')
-rw-r--r-- | src/interp/i-code.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-code.boot b/src/interp/i-code.boot index 8dc692df..6db15fe9 100644 --- a/src/interp/i-code.boot +++ b/src/interp/i-code.boot @@ -83,10 +83,10 @@ intCodeGenCOERCE(triple,t2) == absolutelyCanCoerceByCheating(t1,t2) => objNew(val,t2) -- specially handle coerce to Any - t2 = '(Any) => objNew(['CONS,MKQ t1,val],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 |