diff options
| -rw-r--r-- | guix/packages.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index 57bc148002..7f45417ea2 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -476,11 +476,11 @@ object." (match (package-location package) (($ <location> file line column) (match (search-path %load-path file) - ((? string? file) + ((? string? file-found) (catch 'system-error (lambda () ;; In general we want to keep relative file names for modules. - (call-with-input-file file + (call-with-input-file file-found (lambda (port) (goto port line column) (match (read port) |