better replace word

db4
Doug Coleman 2008-03-14 16:44:40 -05:00
parent 02758aeadb
commit 2029be7344
1 changed files with 1 additions and 1 deletions

View File

@ -223,4 +223,4 @@ PRIVATE>
[ swap nth ] with map ;
: replace ( str oldseq newseq -- str' )
H{ } 2seq>assoc [ dupd at* [ nip ] [ drop ] if ] curry map ;
H{ } 2seq>assoc substitute ;