Added epsilon, the minimum difference between doubles

diff --git a/library/math/float.factor b/library/math/float.factor
index 8bcc198aa1fa228d29ed57e7385cc7265a7a7c14..83c9b211f7fd743b40932f5b23bcfa5f7bc9c233 100644 (file)
--- a/library/math/float.factor
+++ b/library/math/float.factor
@@ -24,3 +24,5 @@ M: float /f float/f ;
 
 M: float 1+ 1.0 float+ ;
 M: float 1- 1.0 float- ;
+
+: epsilon 2.2204460492503131e-16 ; inline