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

Cleaning up some usages of -roll

db4
Slava Pestov 2008-07-08 13:22:57 -05:00
parent 838bdb9438
commit 776b245c39
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/alien/c-types/c-types.factor
View File

@ -199,8 +199,8 @@ M: long-long-type box-return ( type -- )
zero? not ; zero? not ;
: >c-array ( seq type word -- ) : >c-array ( seq type word -- )
>r >r dup length dup r> <c-array> dup -roll r> [ [ dup length ] dip <c-array> ] dip
[ execute ] 2curry 2each ; inline [ [ execute ] 2curry each-index ] 2keep drop ; inline
: >c-array-quot ( type vocab -- quot ) : >c-array-quot ( type vocab -- quot )
dupd set-nth-word [ >c-array ] 2curry ; dupd set-nth-word [ >c-array ] 2curry ;

3
core/kernel/kernel.factor
View File

@ -64,8 +64,7 @@ DEFER: if
: 2keep ( x y quot -- x y ) 2over 2slip ; inline : 2keep ( x y quot -- x y ) 2over 2slip ; inline
: 3keep ( x y z quot -- x y z ) : 3keep ( x y z quot -- x y z ) >r 3dup r> -roll 3slip ; inline
>r 3dup r> -roll 3slip ; inline
! Cleavers ! Cleavers
: bi ( x p q -- ) : bi ( x p q -- )

3
extra/unix/process/process.factor
View File

@ -37,7 +37,8 @@ FUNCTION: int execve ( char* path, char** argv, char** envp ) ;
>r [ first ] [ ] bi r> exec-with-env ; >r [ first ] [ ] bi r> exec-with-env ;
: with-fork ( child parent -- ) : with-fork ( child parent -- )
fork-process dup zero? -roll swap curry if ; inline [ [ fork-process dup zero? ] dip [ drop ] prepose ] dip
if ; inline
: SIGKILL 9 ; inline : SIGKILL 9 ; inline
: SIGTERM 15 ; inline : SIGTERM 15 ; inline