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

Another fix

release
Slava Pestov 2007-10-28 00:42:36 -04:00
parent 748cb2c318
commit 4a2a214cb0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/match/match.factor
View File

@ -61,4 +61,6 @@ MACRO: match-cond ( assoc -- )
} cond ; } cond ;
: match-replace ( object pattern1 pattern2 -- result ) : match-replace ( object pattern1 pattern2 -- result )
-rot match [ replace-patterns ] bind ; -rot
match [ "Pattern does not match" throw ] unless*
[ replace-patterns ] bind ;