diff options
Diffstat (limited to 'src/interp/i-code.boot')
| -rw-r--r-- | src/interp/i-code.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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 |