如何綁定到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 

行爲將是你所期望的，在本地環境約束的話。