Float.st
changeset 8984 ddf3bff73452
parent 8980 abee9fcb0385
child 9124 1bc6bb791bdc
--- a/Float.st	Fri Nov 11 12:07:16 2005 +0100
+++ b/Float.st	Fri Nov 11 13:39:27 2005 +0100
@@ -132,12 +132,15 @@
 # define NO_ASINH
 # define NO_ACOSH
 # define NO_ATANH
+#endif /* WIN32 */
+
+#ifdef solaris
+# ifndef isfinite
+#  define isfinite(f) finite((double)(f))
+# endif
 #endif
 
 #ifdef realIX
-/*
- * no finite(x)
- */
 # ifndef isfinite 
 #  define isfinite(x)     1
 # endif
@@ -2584,7 +2587,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.158 2005-11-09 15:57:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.159 2005-11-11 12:39:27 stefan Exp $'
 ! !
 
 Float initialize!