Float.st
branchjv
changeset 20079 8d884971c2ed
parent 19863 513bd7237fe7
parent 20009 3ef6f589b6ad
child 20080 093324d7a47c
--- a/Float.st	Thu Jun 30 21:11:02 2016 +0100
+++ b/Float.st	Thu Jun 30 21:12:35 2016 +0100
@@ -496,7 +496,6 @@
     ^ Epsilon
 ! !
 
-
 !Float class methodsFor:'binary storage'!
 
 readBinaryIEEEDoubleFrom:aStream
@@ -2342,7 +2341,8 @@
     frac = frexp(__floatVal(self), &exp);
     RETURN (__MKFLOAT(frac));
 %}.
-
+    ^ super mantissa
+    
     "
      1.0 exponent
      1.0 mantissa