procedure-body

Hi.

I'm porting some code to SISC that makes use of STk's |procedure-body| function.  The docs <http://kaolin.unice.fr/STk/Doc/STk.pdf> describe it:

(procedure-body procedure <proc>)
returns the body of procedure <proc>. If procedure <proc> is not a closure, procedure-body returns #f.
(define (f a b) (+ a (* b 2)))
(procedure-body f) ⇒ (lambda (a b) (+ a (* b 2)))
(procedure-body car) ⇒ #f

There is no such function in SISC, correct?  Is it possible to write one?  Any pointers?

Thanks,
Turadg



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf