gexp: Fix argument ordering in 'local-file' macro.

Fixes a regression introduced in
f43ffee908.
Reported by jonsger on #guix.

* guix/gexp.scm (local-file): In the non-literal case, add #:literal?
and #:location after REST.
This commit is contained in:
Ludovic Courtès 2020-10-02 09:29:26 +02:00
parent 9dc27bc388
commit 9471aea76a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -454,9 +454,9 @@ appears."
(with-syntax ((location (datum->syntax s (syntax-source s)))) (with-syntax ((location (datum->syntax s (syntax-source s))))
#`(%local-file file #`(%local-file file
(delay (absolute-file-name file (getcwd))) (delay (absolute-file-name file (getcwd)))
rest ...
#:location 'location #:location 'location
#:literal? #f #:literal? #f)))
rest ...)))
((_) ((_)
#'(syntax-error "missing file name")) #'(syntax-error "missing file name"))
(id (id