better replace word

2008-03-14 16:44:40 -05:00 · 2008-03-14 16:44:40 -05:00 · 2029be7344
parent 02758aeadb
commit 2029be7344
1 changed files with 1 additions and 1 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -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 ;