Using 13!:18 works whether or not debug is on.
exname=:3 : 0
;1{;:1{13!:18''
)
Anssi Seppälä wrote:
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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
