That works fine. Thanks. At 08:28 27.7.2006, you wrote:
I am sure this can be improved, but a simple approach:exname=: verb define NB. Query stack, jump to next verb above 'exname' (ie down column 0) >{.}.{."(1) 13!:13 '' ) foo =: verb define exname '' ) NB. Stack suspension must be ENABLED for this to work ... 13!:0(0) NB. If NOT ENABLED ... no name returned foo '' 13!:0(1) NB. But if ENABLED ... works OK foo '' foo Rob Hodgkinson
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
