Re: more attempts at modifying define

[email protected] wrote:

>I just checked in SISC 1.9 code, which is causing your problems with 2 
>and 3.  Check out from tag pre1_8_8 to get the 1.8 code.
>  
>

I checked out 1_8_7 just to be safe as that's the binary I'm testing on.

Now I get a new error for (2).
#;> (load "file:C:/workspace/sisc/src/sisc/modules/optimizer/main.scm")
Error in load.
Caused by Error: expression not valid outside of quasiquote ,x

For (4), I pasted in the wrong code.  It did nothing with apply and 
still doesn't.

With (3), the 1.8.7 code helped out some.  Now I can load "init2.scm".  
I modified eval as such:

(set! eval
(let-syntax ([old-define (syntax-rules ()
                           [(_ . rest) (define . rest)])])
                (letrec-syntax
      ([define (syntax-rules (lambda)
                 [(_ name (lambda formals . body))
                  (old-define name (let ([p (lambda formals . body)])
                                     
(\@procedure-properties::set-procedure-property!
                                      p 'definition
                                      '(lambda formals . body))
                                     p))]
                 [(_ (name . formals) . body)
                  (define name (lambda formals . body))]
                 [(_ . rest) (old-define . rest)])))
                
  ((lambda (|interaction-environment_tjYQs0KEg|
....
))


I can load that code and define works fine, but still no procedure 
properties:
#;> (load "file:c:/workspace/sisc/src/sisc/boot/init2.scm")
#;> (define (sq x) (* x x))
#;> (import procedure-properties)
#;> (procedure-property sq 'definition)
#f



-------------------------------------------------------
SF.Net is sponsored by: Speed Start Your Linux Apps Now.
Build and deploy apps & Web services for Linux with
a free DVD software kit from IBM. Click Now!
http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click