diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm index 981cde9f2b..71ccb19597 100644 --- a/gnu/packages/bootstrap.scm +++ b/gnu/packages/bootstrap.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -78,7 +78,14 @@ (boot url-fetch)) (else orig-method))) (patch-guile %bootstrap-guile) - (patch-inputs %bootstrap-patch-inputs)))) + (patch-inputs %bootstrap-patch-inputs) + + ;; Patches can be origins as well, so process them. + (patches (map (match-lambda + ((? origin? patch) + (bootstrap-origin patch)) + (patch patch)) + (origin-patches source)))))) (define (package-from-tarball name source program-to-test description) "Return a package that correspond to the extraction of SOURCE.