Currying syntax in Scheme

currying.ss

(define-syntax lambda-curried
  (syntax-rules ()
    ((_ (a ...) b ...)
     (letrec
         ((curry (lambda (func . passed-args)
                   (if (>= (length passed-args) (length '(a ...)))
                       (apply func passed-args)
                       (lambda new-args
                         (apply curry (cons func (append passed-args new-args))))))))
       (curry (lambda (a ...) b ...))))))