Float.st
changeset 2401 ffc0dcc555cb
parent 2399 5d47ec6834a8
child 2892 1695b2af0ae2
--- a/Float.st	Wed Feb 12 18:00:33 1997 +0100
+++ b/Float.st	Wed Feb 12 18:05:26 1997 +0100
@@ -1089,7 +1089,7 @@
     if (__floatVal(self) == NAN) { RETURN (true); }
 #endif
 #ifdef NaN
-    if (NaN(__shortFloatVal(self)) { RETURN (true); }
+    if (NaN(__shortFloatVal(self))) { RETURN (true); }
 #endif
 
 %}.
@@ -1354,6 +1354,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.59 1997-02-12 17:00:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.60 1997-02-12 17:04:58 cg Exp $'
 ! !
 Float initialize!