[racket] Modifying bindings in parent environment

Hi all,

Is there a way for a procedure to modify bindings in it's parent
environment?  I suppose the technique would be similar to passing a
C-style pointer to the procedure.

For example:

(define p 1)
(f p 3)
p
> 3

Define f...

Thanks in advance,
Joe