[REBOL] Re: A hard question
From: fsievert:uos at: 4-Feb-2001 14:54
Hi! You can try this: hard: func [ "Hard function" fun [any-function! path!] args [block!] /local e e2 throw2 ] [ throw2: yes error? set/any 'e2 do does compose/deep [ do [error? set/any 'e fun (args)] throw2: no ] if throw2 [set/any 'e get/any 'e2] if block? first third :hard [change/only third :hard "Hard"] if throw2 [change/only third :hard [throw]] return get/any 'e ] CU, Frank