В 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. мой-объект/история

Что вы считаете настоящим родителем действительно зависит от вас. Нет простого способа, которым я знаю, чтобы найти все контексты, из которых объект (или блок) является частью.