db4
Slava Pestov 2008-04-13 01:23:08 -05:00
parent 8a9baa8660
commit 50e3d36d8e
1 changed files with 2 additions and 2 deletions

View File

@ -227,8 +227,8 @@ PRIVATE>
: ?nth* ( n seq -- elt/f ? )
2dup bounds-check? [ nth-unsafe t ] [ 2drop f f ] if ; flushable
: nths ( indices seq -- seq' )
[ swap nth ] with map ;
: nths ( seq indices -- seq' )
swap [ nth ] curry map ;
: replace ( str oldseq newseq -- str' )
zip >hashtable substitute ;