From 857ecb3df5850f50923ce7f7410f05f3fcc3e41f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 12 Apr 2014 14:39:43 +0200 Subject: packages: Correctly handle patching for inputs with no extension. Reported by Manolis Ragkousis . * guix/packages.scm (patch-and-repack)[numeric-extension?]: Handle FILE-NAME with no extension. --- guix/packages.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix/packages.scm') diff --git a/guix/packages.scm b/guix/packages.scm index 812d6bb991..b413e58b19 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -317,7 +317,8 @@ (define original-file-name (define (numeric-extension? file-name) ;; Return true if FILE-NAME ends with digits. - (string-every char-set:hex-digit (file-extension file-name))) + (and=> (file-extension file-name) + (cut string-every char-set:hex-digit <>))) (define (tarxz-name file-name) ;; Return a '.tar.xz' file name based on FILE-NAME. -- cgit v1.2.3