steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Matthew Willis 2008-03-30 17:58:47 -07:00
parent dee3f0706c
commit a098790634
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/match/match.factor
View File

@ -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*