[racket] obtaining name of module-level binding

Is there a function or syntax to obtain the module-level binding of a 
function?

For example:

(define (my-function)
   (display 
(some-useful-function-which-captures-name-of-module-level-binding)))

;-> 'my-function


Thanks very much.

R./
Zack