Re: #!quote

Turadg Aleahmad wrote:

> Matthias Radestock wrote:
> 
>> Scott may know a way of fixing your problem. However, it occurred to 
>> me that what you'd really want is to redefine DEFINE so that you can 
>> get hold of the *original* (pre macro expansion) body.
> 
> 
> 
> Yes! That's exactly what I want.
> 
> I don't think I understand how to use this snippet:
> 
>> (let-syntax ([old-define (syntax-rules ()
>>                            [(_ . rest) (define . rest)])])
>>   (define-syntax define
>>     (syntax-rules (lambda)
>>       [(_ name (lambda formals . body))
>>        (old-define name (let ([p (lambda formals . body)])
>>                           (set-procedure-property! p 'definition
>>                                                    '(lambda formals . 
>> body))
>>                           p))]
>>       [(_ (name . formals) . body)
>>        (define name (lambda formals . body))]
>>       [(_ . rest) (old-define . rest)])))
> 
> 
> 
> The parens are balanced in the above.
> 
>>     (define (foo x) x)))
> 
> 
> 
> But then you give this line which has an extra two close-parens.  Where 
> is is supposed to fit? 

oops. mailed the wrong snipped. Try this:

(import procedure-properties)
(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)])
                                      (set-procedure-property!
                                       p 'definition
                                       '(lambda formals . body))
                                      p))]
                  [(_ (name . formals) . body)
                   (define name (lambda formals . body))]
                  [(_ . rest) (old-define . rest)])))
     (define (foo x) x)))
(procedure-property foo 'definition)


Matthias.




-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01