Fix code for floats syntax change

diff --git a/basis/lcs/lcs.factor b/basis/lcs/lcs.factor
index 8c67590697a603698d9a9ac48736efce9204ca57..d32b1998738bf76e7dc17bf03ee59c5d96d1238a 100644 (file)
--- a/basis/lcs/lcs.factor
+++ b/basis/lcs/lcs.factor
@@ -8,7 +8,7 @@ IN: lcs
     0 1 ? + [ [ 1+ ] bi@ ] dip min min ;\r
 \r
 : lcs-step ( insert delete change same? -- next )\r
-    1 -1./0. ? + max max ; ! -1./0. is -inf (float)\r
+    1 -1/0. ? + max max ; ! -1/0. is -inf (float)\r
 \r
 :: loop-step ( i j matrix old new step -- )\r
     i j 1+ matrix nth nth ! insertion\r

diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index da495f410fb62ae0a23adf304553a330b1e472dc..85f9d5659652eeacff10cc958d67f868b33b1d1a 100644 (file)
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -227,7 +227,7 @@ unit-test
 [ -3 10 nth ] must-fail
 [ 11 10 nth ] must-fail
 
-[ -1./0. 0 delete-nth ] must-fail
+[ -1/0. 0 delete-nth ] must-fail
 [ "" ] [ "" [ CHAR: \s = ] trim ] unit-test
 [ "" ] [ "" [ CHAR: \s = ] trim-head ] unit-test
 [ "" ] [ "" [ CHAR: \s = ] trim-tail ] unit-test