[REBOL] Rolling your own ideal looper: does Repeat still have a bug? Re:(2)

[lmecir]

Hi,

just a small change:

ideal-looper: func [
    [throw]
    'element [word!]    
    'index [word!]      
    series [series!]    
    code [block!]       
    /local f i
] [
    f: func reduce [element [any-type!] index] code
    i: 1
    while [i <= length? series] [f series/:i i i: i + 1]
]

Regards
    Ladislav