Brian Schott has informed me of an error in my code.
This error can be circumvented by running the code
I posted earlier in this thread twice in the same J
session (which is why I did not detect it).

Here's a fixed version of the code, which does not
need to be run twice:

coclass 'aye'      NB. helper class

f=:4 :0            NB. core definition for derived function
 if. 1<#y do.
   x f }.y
 else.
   x U y
 end.
)

a=:1 :0            NB. helper adverb (reference manager)
:
 o=. conew 'aye'
 U__o=. u
 r=. x f__o y
 coerase o
 r
)
cocurrent'base'    NB. end of definition of helper class
a=:a_aye_          NB. exported adverb

FYI,

-- 
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to