在 Rebol 中如何获取对象路径中的父级？

Question

是否有一个函数可以获取对象的父对象，例如

parent-of system/console/history

会给出

system/console

Answer 1

看来你还没有意识到那条路！ value是一个系列的类型！ value：

>> path: 'system/console/history   
== system/console/history
>> type? path                   
== path!
>> series? path                 
== true

所以只需删除该系列中的最后一个值即可：

>> path: head remove back tail path
== system/console

Answer 2

如果 history 对象只有一个父对象，Peter 是对的。但它可能还有其他：

my-block: copy []
append my-block system/console/history

my-object: make object! [history: system/console/history]

​​history 现在有三个合法的父级：

1. system/console
2. my-block
3. my-object/history

您认为真正的父级实际上取决于您。据我所知，没有简单的方法可以找到对象（或块）所属的所有上下文。