Re: procedure-body

And just to be on the safe side, does (current-optimizer) == optimize?

	Scott

On Fri, May 09, 2003 at 01:02:47PM -0700, Turadg Aleahmad wrote:
> [email protected] wrote:
> 
> >Can you verify that the optimizer is still modifying procedures? Try:
> >
> >#;> (optimize (sc-expand '(define some-proc ...)))
> >
> Yes, which is weird.  It is calling SET-PROCEDURE-PROPERTY! but it 
> doesn't appear to be getting set.
> 
> SISC (1.8.0-alpha) - main
> #;> (optimize (sc-expand '(define hoho (lambda () 3))))
> (begin
>  ($sc-put-cte 'hoho '(global . hoho))
>  (define hoho
>    ((lambda (tmp)
>       (begin
>         (\@procedure-properties::set-procedure-property!
>           tmp
>           'body
>           '(lambda () '3))
>         tmp))
>     (lambda () '3))))
> #;> (import procedure-properties)
> #;> (define hoho (lambda () 3))
> #;> (procedure-property hoho 'body)
> #f
> #;> (set-procedure-property! hoho 'p1 'v1)
> #f
> #;> (procedure-property hoho 'p1)
> v1
> #;> (\@procedure-properties::set-procedure-property! hoho 'p2 "v2")
> #f
> #;> (\@procedure-properties::procedure-property hoho 'p2)
> "v2"
> #;>
> 
> 
> 
> 
> 
> -------------------------------------------------------
> 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+vA2Fr9IW4v3mHtQRApOcAJ4zkSy3ILlWQUgXtGwm9qisM6qaBQCdHHUj
/T7mmjatOVMLcxl4rMsXZTY=
=mWJA
-----END PGP SIGNATURE-----