bind - 如何在 Rebol2 中将本地上下文 block 绑定(bind)到全局上下文？

Question

据我了解，您应该能够将任何 block 绑定(bind)到任何上下文。特别是，您可以将全局上下文 block 绑定(bind)到本地上下文:

>> a: context [
    print: does [rebol/words/print "yeah!"]
    f: func[b] [do bind b 'print]
]

>> a/f [print "hello"]
yeah!
== "hello"

所以也一定可以将本地上下文 block 绑定(bind)到全局上下文吗？但我的尝试没有成功:

>> b: context [
    b: [print "hello"]
    print: does [rebol/words/print "yeah!"]
    f: func[] [do bind b 'system]
]

>> b/b
== [print "hello"]

>> do b/b
yeah!
== "hello"

>> b/f
hello

>> do b/b
hello

看来我做到了，但是:

>> equal? bind? 'system bind? in b 'b
== false

>> same? bind? in b 'f bind? in b 'b
== true

我的错误是什么？

Answer 1

您正在绑定(bind)分配给 b/b 的 block 中的单词，而不是绑定(bind)单词 b 本身。

>> equal? bind? 'system bind? in b 'b
== false

这会比较两个对象，第一个是 'system 绑定(bind)到的对象，第二个是 in b 'b 绑定(bind)到的对象(顶级 b 对象)。

问题是 block 并没有真正绑定(bind)， block 中的单词是绑定(bind)的。这些 block 本身没有任何绑定(bind)，甚至作为一个概念也没有。另外，分配给 b/b 的 block 只是恰好分配给 b/b 的值，而不是单词 'b.

这个比较应该有效:

>> equal? bind? 'system bind? first get in b 'b
== true

您要与此比较的是分配给 b/b 的 block 中第一个单词的绑定(bind)，即您之前绑定(bind)的 print。该单词就是您在 b/f 中更改绑定(bind)的内容。