[Jscheme-user] how to get function symbol, given function closure?

[Geoffrey K. <ge...@kn...>]

I have some code that looks like this:

(define (foo-helper for-real module debug)
	((let (args	((cond ((member? module a-modules) a-decription)
			((cond ((member? module b-modules) (cons d-ds (list a-description)))
			((cond ((member? module c-modules) (cons t-ds (list a-description)))
[...]

Generally, module is a Closure, which takes 1 or 2 args.

Let's say module is AFUNC (the closure, not the symbol).

 > AFUNC
Closure AFUNC[2] (T_DESCR C_DESCR)
 > (member? AFUNC c-modules)
#f
 > (member? 'AFUNC c-modules)
#t
 > c-modules
(BOOFUNC FOOFUNC ZOOFUNC AFUNC BLAHFUNC ...)

How do I get (member? (<something> module) c-modules) to return #t ?

Thanks,
Geoffrey