aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-09-09 10:19:59 +0200
committerLudovic Courtès <ludo@gnu.org>2019-09-10 00:34:40 +0200
commit36eef80d45ae754ba42a761ffc97e38cc7253bd0 (patch)
tree4bb35911dfbe1ef06a81a7d5861e38b322c97a74
parent5fbba846964f72e69cc26aacce9f35301ca13c35 (diff)
downloadguix-36eef80d45ae754ba42a761ffc97e38cc7253bd0.tar.gz
guix-36eef80d45ae754ba42a761ffc97e38cc7253bd0.zip
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.
-rw-r--r--guix/packages.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/packages.scm b/guix/packages.scm
index 143417b861..b92ed0ab0c 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))