build: emacs: Fix `store-file->elisp-source-file'.

This prevents a ".el.el" extension for source files with no version number in
their file name.

* guix/build/emacs-build-system.scm (store-file->elisp-source-file): Remove
  ".el" extension from file name before splitting to name and version.
master
Arun Isaac 2017-05-17 21:39:27 +05:30
parent 5ae59eb6d9
commit d0a26f3a68
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 6 additions and 4 deletions

View File

@ -47,10 +47,12 @@
(define (store-file->elisp-source-file file)
"Convert FILE, a store file name for an Emacs Lisp source file, into a file
name that has been stripped of the hash and version number."
(let-values (((name version)
(package-name->name+version
(strip-store-file-name file))))
(string-append name ".el")))
(let ((suffix ".el"))
(let-values (((name version)
(package-name->name+version
(basename
(strip-store-file-name file) suffix))))
(string-append name suffix))))
(define* (unpack #:key source #:allow-other-keys)
"Unpack SOURCE into the build directory. SOURCE may be a compressed