Float.st
changeset 24615 5ee09c822a98
parent 24461 6bb78b5e6b15
child 24616 f106dce7c44b
--- a/Float.st	Mon Aug 26 09:07:25 2019 +0200
+++ b/Float.st	Mon Aug 26 09:11:54 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -808,6 +810,14 @@
     "Modified (comment): / 09-06-2019 / 12:55:10 / Claus Gittinger"
 !
 
+one
+    "return the neutral element for multiplication (1.0) as Float"
+
+    ^ 1.0
+
+    "Modified: 23.4.1996 / 09:27:15 / cg"
+!
+
 pi
     "return the constant pi as Float"