如何绑定到foreach上下文？

Question

目前我有这个代码片段：

Blocks: ["F4369RO771" "282273" "5" "146" "126" "6-Nov-2009" "8-Jan-2010" "7-Jun-2010" "8" 
"M9881KI923" "399727" "2" "359" "443" "5-Aug-2010" "23-Feb-2010" "6-Nov-2009" "4" 
] 

save-blocks: func[file /local f out][ 
    foreach [field1 field2 field3 field4 field5 field6 field7 field8 field9] blocks [ 

out: copy "" 
repeat n 9 [ 
    part: get bind to-word rejoin ["field" n] 'field1 
    out: rejoin [out part ";"] 
] 
     remove back tail out 
     write/lines/append f out 


] 

这不是一般的不够，我想通过这个来代替

block: [field1 field2 field3 field4 field5 field6 field7 field8 field9] 

为参数，写这样的事：

save-blocks: func[block file /local f out][ 
    foreach block blocks [ 

out: copy "" 
repeat n length? block [ 
    part: get bind to-word rejoin ["field" n] 'field1 
    out: rejoin [out part ";"] 
] 
     remove back tail out 
     write/lines/append f out 


] 

但我不知道如何绑定在这种情况下对我来说太难了:(

Answer 1

（目前，无视你在这里做什么是一个好主意的问题。 ：P）

请记住，当你传递一个block!到foreach，它会在循环过程绑定该块里面的话：

>> foreach [foo bar] ["a" "b"] [print foo print bar] 
a 
b 

当您通过任何形式的word!，它将被覆盖完全没有变量将被分配（不管这个词是否被绑定到先前的块！）：

>> foobarblock: [foo bar] 

>> foreach foobarblock ["a" "b"] [print foo print bar] 
** Script error: foo has no value 
** Where: foreach 
** Near: foreach foobarblock ["a" "b"] [print foo print bar] 

>> foreach foobarblock ["a" "b"] [print foobarblock] 
a 
b 

要得到的效果，你似乎是希望在这里，你需要这样mething这样的：那么

>> foreach :foobarblock ["a" "b"] [print foo print bar] 
a 
b 

行为将是你所期望的，在本地环境约束的话。