procedure-body

Hi, all.

Scott and I worked in IRC to develop a PROCEDURE-BODY proc like that in STk.  I tested it and it worked, but it doesn't anymore.  I assume it's related to a CVS update I've done recently, but I don't know exactly when it stopped working.

I have all the most recent code:
$ cvs -q up
M src/sisc/modules/optimizer/main.scm

Except the changes to the optimizer that support PROCEDURE-BODY:

$ cvs diff src/sisc/modules/optimizer/main.scm
Index: src/sisc/modules/optimizer/main.scm
===================================================================
RCS file: /cvsroot/sisc/sisc/src/sisc/modules/optimizer/main.scm,v
retrieving revision 1.4
diff -r1.4 main.scm
4a5
>
38a40,52
>       ;; BEGIN Turadg's experiment
>       ;; note: outputs globally unique identifiers.  to stop it:
>       ;; (putprop 'gensym '*sisc-specific* (lambda () (string->symbol "")))
>       ((define ,lhs (lambda ,formals ,body))
>        (let-values ([(new-lambda nlstate) (opt:lambda formals body state)])
>                  (values
>                   `(define ,lhs ((lambda (tmp)
>                                    (begin
>                                      (\@procedure-properties::set-procedure-property! tmp 'body '(lambda ,formals ,body))
>                                      tmp))
>                                  ,new-lambda))
>                   nlstate)))
>       ;; END experiment
45c59
<          (values rv (merge-states state vstate))))
---
>          (values rv (merge-states state vstate))))


When I try to retrieve the procedure-property 'body, it isn't set:

SISC (1.8.0-alpha) - main
#;> (define (hoho x) 3))
#;> (hoho 1)
3
#;> (import procedure-properties)
#;> (procedure-property hoho 'body)
#f
#;>


Am I forgetting something?  Has something critical changed in the last week or two?


Thanks,
Turadg


-------------------------------------------------------
Enterprise Linux Forum Conference & Expo, June 4-6, 2003, Santa Clara
The only event dedicated to issues related to Linux enterprise solutions
www.enterpriselinuxforum.com