diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-24 03:14:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 03:14:35 +0000 |
| commit | 7eca3ee736c49024a85ad00ff9b0a912d640380c (patch) | |
| tree | 3ac6fb675cb2efbf8c4a62dfa9ca069de6aeb234 /src/interp/i-code.boot | |
| parent | 155d5c8bf8562bc3797535df1cbb89f7dcb5c03d (diff) | |
| download | open-axiom-7eca3ee736c49024a85ad00ff9b0a912d640380c.tar.gz | |
some cleanups
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 |