Removing more >r/r> usages

[factor.git] / basis / match / match.factor

diff --git a/basis/match/match.factor b/basis/match/match.factor
index c546555d077c26dcd5eb3d4e34b3d5e8100cdc2c..7d393dadc9a2bab92567ec252275d2009915e97c 100644 (file)
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@@ -73,7 +73,7 @@ MACRO: match-cond ( assoc -- )
     2dup [ length ] bi@ < [ 2drop f f ]
     [
         2dup length head over match
-        [ nip swap ?1-tail ] [ >r rest r> (match-first) ] if*
+        [ nip swap ?1-tail ] [ [ rest ] dip (match-first) ] if*
     ] if ;
     
 : match-first ( seq pattern-seq -- bindings )