diff options
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r-- | src/interp/i-intern.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 2dc3e34a..82309cc5 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -1,6 +1,6 @@ -- Copyright (C) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2011, Gabriel Dos Reis. +-- Copyright (C) 2007-2012, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -176,7 +176,7 @@ mkAtree2(x,op,argl) == integer? a => a >= 0 => mkAtree1 [['_$elt,D,internalName a]] t := evaluateType unabbrev [D] - typeIsASmallInteger(t) and SINTP a => + typeIsASmallInteger(t) and fixnum? a => v := mkAtreeNode $immediateDataSymbol putValue(v,objNewWrap(a, t)) v |