Fix number/sequence error in match-replace

db4
Chris Double 2007-12-21 11:38:25 +13:00
parent 0bf1355657
commit 1fe15b322d
1 changed files with 1 additions and 0 deletions
extra/match

View File

@ -54,6 +54,7 @@ MACRO: match-cond ( assoc -- )
: replace-patterns ( object -- result )
{
{ [ dup number? ] [ ] }
{ [ dup match-var? ] [ get ] }
{ [ dup sequence? ] [ [ replace-patterns ] map ] }
{ [ dup tuple? ] [ tuple>array replace-patterns >tuple ] }