Factor 0.79

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 8999d1ce631cb005dcae63d59c9560733e1a6b7b..419eeaf4ae6144bcc44304bc2e797c26ef126cf1 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,11 +1,7 @@
-0.79:\r
++ ui:\r
 \r
 - fix remaining GL issues\r
 - UI issue: try resizing slider while menu is open\r
-- 3/2 { 1 2 3 } nth -> fep\r
-\r
-+ ui:\r
-\r
 - make-pane: if no input, just return pane-output\r
 - keyboard completion\r
 - get outliner working with lots of lines of output\r
@@ -60,6 +56,8 @@
 \r
 + compiler:\r
 \r
+- inference: try changing nth and set-nth array methods to call -unsafe,\r
+  unbalanced branches error\r
 - compile interruption checks\r
 - check that set-datastack and set-callstack compile correctly in the\r
   face of optimization\r

diff --git a/library/collections/arrays.factor b/library/collections/arrays.factor
index ed822103398259884a30019ce7eeeeb15f3855b8..ce931b7775bbdded9fd2c94bc23f28d789ccbeb1 100644 (file)
--- a/library/collections/arrays.factor
+++ b/library/collections/arrays.factor
@@ -18,8 +18,8 @@ IN: arrays
 
 M: array clone (clone) ;
 M: array length array-capacity ;
-M: array nth bounds-check array-nth ;
-M: array set-nth bounds-check set-array-nth ;
+M: array nth bounds-check >r >fixnum r> array-nth ;
+M: array set-nth bounds-check >r >fixnum r> set-array-nth ;
 M: array nth-unsafe >r >fixnum r> array-nth ;
 M: array set-nth-unsafe >r >fixnum r> set-array-nth ;
 M: array resize resize-array ;

diff --git a/library/test/collections/sequences.factor b/library/test/collections/sequences.factor
index ef0f270bf1ccd5d18cffeedf0351f0b843de6ecf..e94bbfac39f6cf96fde0a8f694eadd2cdfa9a047 100644 (file)
--- a/library/test/collections/sequences.factor
+++ b/library/test/collections/sequences.factor
@@ -203,3 +203,5 @@ unit-test
     4 "cache-test" get [ "wrong" ] cache-nth
     "cache-test" get
 ] unit-test
+
+[ 1 ] [ 1/2 { 1 2 3 } nth ] unit-test