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