steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

latest fixes

cvs
Slava Pestov 2004-10-13 21:42:03 +00:00
parent 253e559a73
commit 0f15cc3fdf
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
TODO.FACTOR.txt
View File

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

8
library/lists.factor
View File

@ -164,6 +164,10 @@ DEFER: tree-contains?
over [ >r uncons r> tuck 2slip each ] [ 2drop ] ifte ; over [ >r uncons r> tuck 2slip each ] [ 2drop ] ifte ;
inline interpret-only 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 ) : map ( list code -- list )
#! Applies the code to each item, returns a list that #! Applies the code to each item, returns a list that
#! contains the result of each application. #! contains the result of each application.
@ -233,10 +237,6 @@ DEFER: tree-contains?
#! Pushes the length of the given proper list. #! Pushes the length of the given proper list.
0 swap [ drop succ ] each ; 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 -- ? ) : all? ( list pred -- ? )
#! Push if the predicate returns true for each element of #! Push if the predicate returns true for each element of
#! the list. #! the list.