mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-13 06:36:37 -05:00
packages: Work around compiler bug in Guile 2.0.5.
* guix/packages.scm (package-field-location): Work around compiler bug in 2.0.5. Reported by Andreas Enge <andreas@enge.fr>.
This commit is contained in:
parent
89be37a5a3
commit
8e77f41ede
1 changed files with 6 additions and 3 deletions
|
@ -181,9 +181,12 @@ (define (goto port line column)
|
||||||
(let ((field (assoc field inits)))
|
(let ((field (assoc field inits)))
|
||||||
(match field
|
(match field
|
||||||
((_ value)
|
((_ value)
|
||||||
(and=> (or (source-properties value)
|
;; Put the `or' here, and not in the first argument of
|
||||||
(source-properties field))
|
;; `and=>', to work around a compiler bug in 2.0.5.
|
||||||
source-properties->location))
|
(or (and=> (source-properties value)
|
||||||
|
source-properties->location)
|
||||||
|
(and=> (source-properties field)
|
||||||
|
source-properties->location)))
|
||||||
(_
|
(_
|
||||||
#f))))
|
#f))))
|
||||||
(_
|
(_
|
||||||
|
|
Loading…
Reference in a new issue