(define mnt-reform-debian-packages
  (let ((commit "51025e3e045b15bce4c522f136823781eddd15b8")
        (name "mnt-reform-debian-packages"))
        (origin
                (method git-fetch)
                (uri (git-reference
                       (url "https://source.mnt.re/reform/reform-debian-packages.git")
                       (commit commit)))
                (file-name (git-file-name name commit))
                (sha256 "0a69g89jh2bi3fhvzq32sl17xl8x4l205mmb4arhah5fzzb77gxv")
      )))

(define mnt-reform-patches
  (lambda (version)
    (file-system-fold
      (lambda (path stat result) #t) ;enter?
      (lambda (path stat result) (cons (local-file path) result)) ;leaf
      (lambda (path stat result) result) ;down
      (lambda (path stat result) result) ;up
      (lambda (path stat result) result) ;skip
      (lambda (path stat errno result) result) ;error
      (list) ;init
      (file-append mnt-reform-debian-packages "/linux/patches" version))))