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

Simplify most

db4
Samuel Tardieu 2009-02-18 01:56:54 +01:00
parent 6e8c86a093
commit 3c859a77bf
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/kernel/kernel.factor
View File

@ -185,8 +185,7 @@ PRIVATE>
: either? ( x y quot -- ? ) bi@ or ; inline : either? ( x y quot -- ? ) bi@ or ; inline
: most ( x y quot -- z ) : most ( x y quot -- z ) 2keep ? ; inline
[ 2dup ] dip call [ drop ] [ nip ] if ; inline
! Loops ! Loops
: loop ( pred: ( -- ? ) -- ) : loop ( pred: ( -- ? ) -- )