Simplify most

2009-02-18 01:56:54 +01:00 · 2009-02-18 01:56:54 +01:00 · 3c859a77bf
parent 6e8c86a093
commit 3c859a77bf
1 changed files with 1 additions and 2 deletions
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@ -185,8 +185,7 @@ PRIVATE>

 : either? ( x y quot -- ? ) bi@ or ; inline

-: most ( x y quot -- z )
-    [ 2dup ] dip call [ drop ] [ nip ] if ; inline
+: most ( x y quot -- z ) 2keep ? ; inline

 ! Loops
 : loop ( pred: ( -- ? ) -- )