Re: procedure-body

Can you verify that the optimizer is still modifying procedures? Try:

#;> (optimize (sc-expand '(define some-proc ...)))

	Scott

On Thu, May 08, 2003 at 04:58:30PM -0700, Turadg Aleahmad wrote:
> 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
> 
> _______________________________________________
> SISC-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/sisc-devel
> 

--

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+uyYxr9IW4v3mHtQRArPDAJ9WLRfGW7w3L1yAKG9UNoa+vjQHJgCfYn6v
aWFJ5oGbpmmq5rhqpdENQPo=
=0edX
-----END PGP SIGNATURE-----