Simplify most

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 06fe289281131cb66b7f89031cdfa2c41c59258c..697000920a6af7f21529e6bde02b8f83bd45619e 100644 (file)
--- 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: ( -- ? ) -- )