Fix for math.parser syntax change

diff --git a/basis/compiler/tree/propagation/recursive/recursive.factor b/basis/compiler/tree/propagation/recursive/recursive.factor
index 1bcd36f6b0a6a285551c197d961e64e8f3315e91..b8d1760a0b4edaf7aca4e780b8fe858a54e4f931 100644 (file)
--- a/basis/compiler/tree/propagation/recursive/recursive.factor
+++ b/basis/compiler/tree/propagation/recursive/recursive.factor
@@ -28,8 +28,8 @@ IN: compiler.tree.propagation.recursive
     {
         { [ 2dup interval-subset? ] [ empty-interval ] }
         { [ over empty-interval eq? ] [ empty-interval ] }
-        { [ 2dup interval>= t eq? ] [ 1./0. [a,a] ] }
-        { [ 2dup interval<= t eq? ] [ -1./0. [a,a] ] }
+        { [ 2dup interval>= t eq? ] [ 1/0. [a,a] ] }
+        { [ 2dup interval<= t eq? ] [ -1/0. [a,a] ] }
         [ [-inf,inf] ]
     } cond interval-union nip ;
 

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 1eac321e3b644b03a31f155c1a19d375096b0d04..a6beb87345926b08d2c27bc0f7df28c3b8a9d3c6 100644 (file)
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -81,7 +81,7 @@ PRIVATE>
     2dup [ real? ] both? [ drop 0 >= ] [ 2drop f ] if ; inline
 
 : 0^ ( x -- z )
-    dup zero? [ drop 0./0. ] [ 0 < 1./0. 0 ? ] if ; inline
+    dup zero? [ drop 0/0. ] [ 0 < 1/0. 0 ? ] if ; inline
 
 : (^mod) ( n x y -- z )
     make-bits 1 [

diff --git a/basis/math/intervals/intervals.factor b/basis/math/intervals/intervals.factor
index 4fbc88097122989f9dde59e3b8a514a0e002ba1e..02ea181f4e7b365188cfb0111e6229cd6dc94aa2 100755 (executable)
--- a/basis/math/intervals/intervals.factor
+++ b/basis/math/intervals/intervals.factor
@@ -40,13 +40,13 @@ TUPLE: interval { from read-only } { to read-only } ;
 : [a,a] ( a -- interval )
     closed-point dup <interval> ; foldable
 
-: [-inf,a] ( a -- interval ) -1./0. swap [a,b] ; inline
+: [-inf,a] ( a -- interval ) -1/0. swap [a,b] ; inline
 
-: [-inf,a) ( a -- interval ) -1./0. swap [a,b) ; inline
+: [-inf,a) ( a -- interval ) -1/0. swap [a,b) ; inline
 
-: [a,inf] ( a -- interval ) 1./0. [a,b] ; inline
+: [a,inf] ( a -- interval ) 1/0. [a,b] ; inline
 
-: (a,inf] ( a -- interval ) 1./0. (a,b] ; inline
+: (a,inf] ( a -- interval ) 1/0. (a,b] ; inline
 
 : [-inf,inf] ( -- interval ) full-interval ; inline