Re: procedure-body

[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