Updated extra/match to use bi@ instead of 2apply. Ran "peg" test for testing.

[factor.git] / extra / match / match.factor

diff --git a/extra/match/match.factor b/extra/match/match.factor
index dbc42f53e3f0c40b77f7e77973ea2b5e100cf746..825d58c7c2c2d43e29c369d6574f168c1a3a221e 100755 (executable)
--- a/extra/match/match.factor
+++ b/extra/match/match.factor
@@ -70,7 +70,7 @@ MACRO: match-cond ( assoc -- )
     dup length zero? not [ 1 tail ] [ drop f ] if ;
 
 : (match-first) ( seq pattern-seq -- bindings leftover/f )
-    2dup [ length ] 2apply < [ 2drop f f ]
+    2dup [ length ] bi@ < [ 2drop f f ]
     [
         2dup length head over match
         [ nip swap ?1-tail ] [ >r 1 tail r> (match-first) ] if*