ShortFloat.st
changeset 2391 d137b7d92b6d
parent 2389 37b5964a9308
child 2392 cd44ad5cf015
--- a/ShortFloat.st	Wed Feb 12 17:06:26 1997 +0100
+++ b/ShortFloat.st	Wed Feb 12 17:08:32 1997 +0100
@@ -547,7 +547,7 @@
 #else
     static float nan = 0.0 / 0.0;
 
-    RETURN (__shortFloatVal(self) == nan);
+    RETURN ((__shortFloatVal(self) == nan) ? true : false);
 #endif
 
 %}
@@ -588,5 +588,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.14 1997-02-12 16:06:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.15 1997-02-12 16:08:32 cg Exp $'
 ! !