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
|
