From a098790634503dfc03eb24969a4fbaff7f7512f5 Mon Sep 17 00:00:00 2001 From: Matthew Willis Date: Sun, 30 Mar 2008 17:58:47 -0700 Subject: [PATCH] Updated extra/match to use bi@ instead of 2apply. Ran "peg" test for testing. --- extra/match/match.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/match/match.factor b/extra/match/match.factor index dbc42f53e3..825d58c7c2 100755 --- 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* -- 2.34.1