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

View File

@ -7,20 +7,11 @@ FFI:
- when* compilation in jvm
- compile word twice; no more 'cannot compile' error!
- doc comments in assoc, image, inferior
- styles - could use some cleanup
- list - trim down
- compiler: drop literal peephole optimization
- compiling when*
- compiling unless*
- getenv/setenv: if literal arg, compile as a load/store
- 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
- profiler is inaccurate: wrong word on cs
- buffer change handler in sidekick is screwed

View File

@ -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.