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:
Ludovic Courtès 2013-04-27 23:02:06 +02:00
parent 89be37a5a3
commit 8e77f41ede

View file

@ -181,9 +181,12 @@ (define (goto port line column)
(let ((field (assoc field inits)))
(match field
((_ value)
(and=> (or (source-properties value)
(source-properties field))
source-properties->location))
;; Put the `or' here, and not in the first argument of
;; `and=>', to work around a compiler bug in 2.0.5.
(or (and=> (source-properties value)
source-properties->location)
(and=> (source-properties field)
source-properties->location)))
(_
#f))))
(_