Skip to content
Snippets Groups Projects
Unverified Commit 36eef80d authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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.
parent 5fbba846
No related branches found
No related tags found
No related merge requests found
...@@ -351,7 +351,7 @@ (define (goto port line column) ...@@ -351,7 +351,7 @@ (define (goto port line column)
(match (package-location package) (match (package-location package)
(($ <location> file line column) (($ <location> file line column)
(catch 'system (catch 'system-error
(lambda () (lambda ()
;; In general we want to keep relative file names for modules. ;; In general we want to keep relative file names for modules.
(with-fluids ((%file-port-name-canonicalization 'relative)) (with-fluids ((%file-port-name-canonicalization 'relative))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment