diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-02 13:03:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-02 13:03:26 +0000 |
commit | 4ac600edddd39335715c053ded118a59c804778d (patch) | |
tree | d60f88eb9626a3a0de210246dcc36198478b5ad0 /src/interp/i-intern.boot | |
parent | c129ad817cd16aef92f5b433a509e15254b9ccd3 (diff) | |
download | open-axiom-4ac600edddd39335715c053ded118a59c804778d.tar.gz |
* interp/buildom.boot: Use constants by names.
* interp/i-analy.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-intern.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/wi1.boot: Likewise.
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r-- | src/interp/i-intern.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index fc2c8145..3116293f 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -148,13 +148,13 @@ mkAtree2(x,op,argl) == [mkAtreeNode "COERCE",mkAtree1 first argl,CADR argl] x is ["@", expr, type] => t := evaluateType unabbrev type - t = '(DoubleFloat) and expr is [['_$elt, '(Float), 'float], :args] => - mkAtree1 [['_$elt, '(DoubleFloat), 'float], :args] - t = '(DoubleFloat) and INTEGERP expr => + t = $DoubleFloat and expr is [['_$elt, =$Float, 'float], :args] => + mkAtree1 [['_$elt, $DoubleFloat, 'float], :args] + t = $DoubleFloat and INTEGERP expr => v := mkAtreeNode $immediateDataSymbol putValue(v,getBasicObject float expr) v - t = '(Float) and INTEGERP expr => + t = $Float and INTEGERP expr => mkAtree1 ["::", expr, t] typeIsASmallInteger(t) and INTEGERP expr => mkAtree1 ["::", expr, t] |