latest fixes
parent
253e559a73
commit
0f15cc3fdf
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue