在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. 我的对象/历史

你认为真正的父母是真的取决于你。我知道找到对象（或块）所包含的所有上下文并不容易。