~ruther/guix-local: packages: Patches can be any lowerable object.

7ebc6cf869006a2a568b09cc6b435961f399a20a — Ludovic Courtès 8 years ago 0208476

packages: Patches can be any lowerable object.

* guix/packages.scm (patch-and-repack)[instantiate-patch]: Replace
'origin?' with 'struct?'.

patch browse .tar.gz

1 files changed, 3 insertions(+), 3 deletions(-)

M guix/packages.scm

M guix/packages.scm => guix/packages.scm +3 -3

@@ 477,10 477,10 @@ specifies modules in scope when evaluating SNIPPET."
 
   (define instantiate-patch
     (match-lambda
-      ((? string? patch)
+      ((? string? patch)                          ;deprecated
        (interned-file patch #:recursive? #t))
-      ((? origin? patch)
-       (origin->derivation patch system))))
+      ((? struct? patch)                          ;origin, local-file, etc.
+       (lower-object patch system))))
 
   (mlet %store-monad ((tar ->     (lookup-input "tar"))
                       (xz ->      (lookup-input "xz"))