factor: use ??if instead of ?if-old

[factor.git] / extra / combinators / extras / extras.factor

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index 162948e6571217ec3276d73ad87b9b5ea23aa1b7..8e1f312042cd58a6da971fa4bde81685883b078e 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -58,12 +58,6 @@ MACRO: cleave-array ( quots -- quot )
 
 : quad@ ( w x y z quot -- ) dup dup dup quad* ; inline
 
-: plox ( ... x/f quot: ( ... x -- ... y ) -- ... y/f )
-    dupd when ; inline
-
-: plox-if ( ... x quot: ( ... x -- ... ? ) quot: ( ... x -- ... y ) -- ... y/f )
-    [ keep swap ] dip when ; inline
-
 MACRO: smart-plox ( true -- quot )
     [ inputs [ 1 - [ and ] n*quot ] keep ] keep swap
     '[ _ _ [ _ ndrop f ] smart-if ] ;