ArithmeticValue.st
changeset 8979 869510c58b9c
parent 8892 5d05a7f150a5
child 9400 e3d6f81078ce
equal deleted inserted replaced
8978:cc8f54000c84 8979:869510c58b9c
  1114     ^ false
  1114     ^ false
  1115 
  1115 
  1116     "Modified: / 9.7.1998 / 10:19:27 / cg"
  1116     "Modified: / 9.7.1998 / 10:19:27 / cg"
  1117 !
  1117 !
  1118 
  1118 
       
  1119 isFinite
       
  1120     ^ true
       
  1121 !
       
  1122 
       
  1123 isInfinite
       
  1124     ^ false
       
  1125 !
       
  1126 
  1119 isNegativeInfinity
  1127 isNegativeInfinity
  1120     ^ self negative and:[self isInfinite]
  1128     ^ self negative and:[self isInfinite]
  1121 !
  1129 !
  1122 
  1130 
  1123 isNegativeZero
  1131 isNegativeZero
  1269 ! !
  1277 ! !
  1270 
  1278 
  1271 !ArithmeticValue class methodsFor:'documentation'!
  1279 !ArithmeticValue class methodsFor:'documentation'!
  1272 
  1280 
  1273 version
  1281 version
  1274     ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.70 2005-06-27 10:20:33 cg Exp $'
  1282     ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.71 2005-11-09 15:56:03 stefan Exp $'
  1275 ! !
  1283 ! !
  1276 
  1284 
  1277 ArithmeticValue initialize!
  1285 ArithmeticValue initialize!