#!quote

Revision 1.4 of sisc/modules/optimizer/main.scm changed uses of QUOTE to 
#!QUOTE .  A while back we figured out a way to attach a procedure 
definition as a property of that procedure...

      ((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)))


But now, when GET-PROCEDURE-PROPERTY is called, it returns the procedure 
definition with #!QUOTE, which won't evaluate in the REPL.

#;> (quote hi)
hi
#;> (#!quote hi)
{warning: compiler detected application of non-procedure '#!quote'.)


How can I get it to return the quote symbol again?

Thanks,
Turadg




-------------------------------------------------------
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