奇怪的 rebol bug：错误需要一个值

Question

当执行

do-file: func[file][
  if error? error: try [
    if (find [%.r %.cgi] (suffix? file)) [
      do file
    ]
  ][
    disarm error
    print ["error executing " file]
    input
  ]
]


foreach-file: func [
    "Perform function on each file in selected directory recursively"
    dir [file! url!] "Directory to look in"
    act [function!] "Function to perform (filename is unput to function)"
    /directory "Perform function also on directories"
    /local f files
][
    if not equal? last dir #"/" [
      dir: to-rebol-file join dir #"/"
    ]
    files: attempt [read dir]
    either none? files [return][
        foreach file files [
            f: join dir file
            either dir? f [
                either directory [
                    act f
                    foreach-file/directory f :act
                ][
                    foreach-file f :act
                ]
            ][act f]
        ]
    ]
]

feach-file %test/ :do-file

where %test 将包含一个仅包含 rebo 标头的文件时：

rebol []

程序因错误而停止，而不是解除错误！

如果文件包含类似内容，它不会给出错误

rebol []

test: context []

，但如果它包含

rebol []

print ""

Why ，它会再次失败？

Answer 1

必须为设置的单词提供一个值，如下控制台会话所示：

<块引用>

a: func [] [#[未设置!]]
乙：一
** 脚本错误：b 需要一个值
** 近：b：a

解决方案是使用 set/any 而不是 set 词。

<块引用>

？放
用法：
设置字值 /any /pad

描述：
将单词、单词块或对象设置为指定值。
SET 是一个原生值。

论据：
word -- 要设置的一个或多个单词（类型：任意单词块对象）
value -- 值或值块（类型：任何类型）

改进：
/any——允许将单词设置为任何值。
/pad -- 对于对象，如果块太短，则剩余字设置为 NONE。

你可以使用类似的东西：

<块引用>

如果有错误？ set/any 'error try [] [解除错误]
==无

顺便说一句，您可以通过 Rebol 邮件列表存档找到许多问题的答案，网址为 http://www.rebol.org/ml-index.r。

Answer 2

do-file: func [ file
  /local err
][
  if error? set/any 'err try [
    if find [%.r %.cgi] suffix? file [
      do file
    ]
  ][
    print ["error executing " file]
    print mold disarm err
  ]
]

那些括号是不必要的。

这是另一种风格

do-file: func [file] [
    /local err
] [
    if error? set/any 'err try [
        all [
            find [%.r %.cgi] suffix? file
            do file
        ]
    ] [
        print ["error executing " file]
        print mold disarm err
    ]
]

Answer 3

成功创建文件时没有返回有效值。
set-word 需要一个值，而 set/any 可以接受任何值。