关于lisp:用lisp写一个-柯里化curry的宏

curry.lisp

(define-macro curry (lambda (fn) ((define curry0 (lambda (args body) ((if (nil? args) 
            (body)
            (`(lambda ((,(car args))) (,(curry0 (cdr args) body
                )))
            ))
    )))
    (if (procedure? (apply fn)) 
        ((define args (car (cdr fn)))
            (define body (cdr (cdr fn)))
            (curry0 args body)
        )
        (fn))
)))

应用

(define add3 (curry(lambda (x y z) (+ x y z))))
(((add3 1) 2) 3)

介绍
这条语句

(curry(lambda (x y z) (+ x y z)))

等价于上面这条语句

(lambda (x) (lambda (y) (lambda (z) ((+ x y z)))))

暂不反对这种写法

(define add30 (lambda (x y z) (+ x y z)))
(define add3 (curry add30))

若想反对能够用宏重写 define 语句