# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 829772523 -7200
# Node ID 9d23c1f5e4d3c0385057dd240e3693cc2ae2e728
# Parent  6f33a6e5b914d80af5e95aeb289f8a63d52147ab
use quicker MKFLOAT in FLoat>>basicNew

diff -r 6f33a6e5b914 -r 9d23c1f5e4d3 Float.st
--- a/Float.st	Wed Apr 17 19:06:50 1996 +0200
+++ b/Float.st	Wed Apr 17 22:22:03 1996 +0200
@@ -87,8 +87,12 @@
      binary stored in a device independent format."
 
 %{  /* NOCONTEXT */
-    RETURN ( __MKFLOAT((0.0) COMMA_SND) );
+    OBJ newFloat;
+
+    __qMKFLOAT(newFloat, 0.0, SENDER);
+    RETURN (newFloat);
 %}
+
 ! !
 
 !Float class methodsFor:'binary storage'!
@@ -1063,5 +1067,5 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.35 1996-04-17 10:31:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.36 1996-04-17 20:22:03 cg Exp $'
 ! !