01/10: packages: 'package-field-location' really catches 'system-error.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 36eef80d45ae754ba42a761ffc97e38cc7253bd0
Author: Ludovic Courtès <address@hidden>
Date:   Mon Sep 9 10:19:59 2019 +0200

    packages: 'package-field-location' really catches 'system-error.
    
    This had been wrong since forever (i.e., 2013).
    
    * guix/packages.scm (package-field-location): Catch 'system-error, not
    'system.
---
 guix/packages.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index 143417b..b92ed0a 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -351,7 +351,7 @@ object."
 
   (match (package-location package)
     (($ <location> file line column)
-     (catch 'system
+     (catch 'system-error
        (lambda ()
          ;; In general we want to keep relative file names for modules.
          (with-fluids ((%file-port-name-canonicalization 'relative))