Fix nths
parent
8a9baa8660
commit
50e3d36d8e
extra/sequences/lib
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue