From 3c859a77bfe8fdeea191c4132768f7928aa4f0b1 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Wed, 18 Feb 2009 01:56:54 +0100 Subject: [PATCH] Simplify most --- core/kernel/kernel.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor index 06fe289281..697000920a 100644 --- 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: ( -- ? ) -- )