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.
This commit is contained in:
Ludovic Courtès 2019-09-09 10:19:59 +02:00
parent 5fbba84696
commit 36eef80d45
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -351,7 +351,7 @@ (define (goto port line column)
(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))