diff options
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 61533d39..eefc2a55 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -174,8 +174,7 @@ mkAtree2(x,op,argl) == op='_$elt => argl is [D,a] => integer? a => - a = 0 => mkAtree1 [['_$elt,D,'Zero]] - a = 1 => mkAtree1 [['_$elt,D,'One]] + a >= 0 => mkAtree1 [['_$elt,D,internalName a]] t := evaluateType unabbrev [D] typeIsASmallInteger(t) and SINTP a => v := mkAtreeNode $immediateDataSymbol |