latest fixes

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 734dfe27ad7b0971095edd11b2212d5cfdb3ec64..aac17fa87850f705778d8366261ee4b39fbba9e6 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -7,20 +7,11 @@ FFI:
 - when* compilation in jvm\r
 - compile word twice; no more 'cannot compile' error!\r
 - doc comments in assoc, image, inferior\r
-- styles - could use some cleanup\r
-- list - trim down\r
 - compiler: drop literal peephole optimization\r
 - compiling when*\r
 - compiling unless*\r
 - getenv/setenv: if literal arg, compile as a load/store\r
 - inline words\r
-\r
-[error] AWT-EventQueue-0: java.lang.ArrayIndexOutOfBoundsException: Array index out of range: 98\r
-[error] AWT-EventQueue-0:  at org.gjt.sp.jedit.Buffer.getLineOfOffset(Buffer.java:882)\r
-[error] AWT-EventQueue-0:  at errorlist.DefaultErrorSource$DefaultError.getLineNumber(Unknown Source)\r
-[error] AWT-EventQueue-0:  at errorlist.DefaultErrorSource.getLineErrors(Unknown Source)\r
-[error] AWT-EventQueue-0:  at errorlist.ErrorOverview.paintComponent(Unknown Source)\r
-\r
 - perhaps /i should work with all numbers\r
 - profiler is inaccurate: wrong word on cs\r
 - buffer change handler in sidekick is screwed\r

diff --git a/library/lists.factor b/library/lists.factor
index 5db76e1e4874d20df2575a5962cfc1d194b469dc..d668506070feb2bd7bae578d845fb0919bcb05ce 100644 (file)
--- a/library/lists.factor
+++ b/library/lists.factor
@@ -164,6 +164,10 @@ DEFER: tree-contains?
     over [ >r uncons r> tuck 2slip each ] [ 2drop ] ifte ;
     inline interpret-only
 
+: reverse ( list -- list )
+    #! Push a new list that is the reverse of a proper list.
+    [ ] swap [ swons ] each ;
+
 : map ( list code -- list )
     #! Applies the code to each item, returns a list that
     #! contains the result of each application.
@@ -233,10 +237,6 @@ DEFER: tree-contains?
     #! Pushes the length of the given proper list.
     0 swap [ drop succ ] each ;
 
-: reverse ( list -- list )
-    #! Push a new list that is the reverse of a proper list.
-    [ ] swap [ swons ] each ;
-
 : all? ( list pred -- ? )
     #! Push if the predicate returns true for each element of
     #! the list.