[REBOL] Extract - bug
From: al::bri::xtra::co::nz at: 19-Oct-2001 15:02
There's a bug with 'extract. It doesn't work with all series! and doesn't
have a /only refinement. Also, it uses:
pick series 1
when:
first series
is all that's needed.
Here's my patch:
; Modifies Extract to work with series! and adds /Only refinement.
Extract: function [
"Extracts every N-th value from a Series."
Series [series!]
N [integer!]
/Only "Appends a block value as a block."
][
New
][
New: make Series (length? Series) / N
do compose/deep [
forskip Series N [
(either Only ['insert/only]['insert]) tail New first Series
]
]
New
]
I've sent this to feedback as well.
Andrew Martin
ICQ: 26227169 http://valley.150m.com/