[plt-scheme] recover a procedure body?

Is it possible to recover a procedure body and arguments?  For example,
we'd like to do the following:

> (define p (lambda(x) (display x)(newline)))
> p
> #<procedure:x>
... sometime later ...
> (define q (procedure-body p))
> q
> '((display x)(newline))
> (define a (procedure-args p))
> a
> '(x)

We trying to recover the procedure body and arguments so that we
can save them and later reload them.

Thanks,

Ron Stanonik
stanonik at cogsci.ucsd.edu