1function r = parent (a) 2 __trace__ ('begin derived/parent'); 3 if (isa (a, 'parent')) 4 r = parent (a.parent); 5 else 6 error ('foo'); 7 end 8 __trace__ ('end derived/parent'); 9end 10