better replace word
parent
02758aeadb
commit
2029be7344
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue