# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1574691854 -3600
# Node ID 2bf781ee06db2467c4b46e18adef867213edd951
# Parent  2f028fe7bd3dd0dae76a4047d6ae6a339267e894
#REFACTORING by cg
x

diff -r 2f028fe7bd3d -r 2bf781ee06db Float.st
--- a/Float.st	Mon Nov 25 15:24:07 2019 +0100
+++ b/Float.st	Mon Nov 25 15:24:14 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1400,21 +1398,6 @@
     "Modified (comment): / 07-06-2019 / 02:34:07 / Claus Gittinger"
 !
 
-asQuadFloat
-    "return a quadFloat with same value as receiver"
-
-    ^ QuadFloat fromFloat:self
-
-    "
-     123 asFloat asQuadFloat
-     0 asFloat asQuadFloat
-     0.0 asQuadFloat
-    "
-
-    "Created: / 07-06-2019 / 02:28:26 / Claus Gittinger"
-    "Modified (comment): / 10-06-2019 / 21:51:04 / Claus Gittinger"
-!
-
 asShortFloat
     "return a ShortFloat with same value as receiver.
      Raises an error if the receiver exceeds the float range."