Here's a less redundant implementation of this concept:
refname=: 4 : 'x,''_'',(":>y),''_'''
ref=:2 :0
nm=: m refname n NB. m names member, n names locale
if.0=4!:0<nm do.
". bind nm NB. function returning named noun
else.
nm~ NB. named function
end.
)Thanks, -- Raul
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
