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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/lib/lib.factor
View File

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