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

Question

是否有函数来获取对象的父级，例如

parent-of system/console/history

会给出

system/console

Answer 1

看来你没有意识到这条路！价值是一种系列！值：

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

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

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

Answer 2

如果历史对象只有一个父对象，那么彼得是对的。但它可能有其他人：

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

my-object：make object！ [历史：系统/控制台/历史]

历史现在有三个合法的父母：

1. 系统/控制台
2. 我的块
3. 我的对象/历史

你认为真正的父母是真的由你决定。我知道没有简单的方法可以找到对象（或块）所属的所有上下文。