Curry a function in Scheme

curry.scm

(define curryn
  (lambda (func n)
    (((lambda (f) (f f))
      (lambda (f)
        (lambda (function remaining args)
          (if (zero? remaining)
              (apply function args)
              (lambda (v)
                ((f f) function (- remaining 1) (cons v args)))))))
     func n '())))