On Tue, Aug 25, 2009 at 8:36 PM, Marc Feeleyfeeley@iro.umontreal.ca wrote:
Try the following, which does not require define-syntax:
(define-macro (define pattern . rest) (if (pair? pattern) `(define ,(car pattern) (##lambda ,(cdr pattern) ,@rest)) `(##define ,pattern ,@rest)))
(define (((f x) y) z) (+ x y z))
(define g (f 1)) (define h (g 2)) (pp (h 10))
Marc
Thanks. michele