Prefer expand-file-name to concat in native-compilation code

* lisp/emacs-lisp/comp.el (comp-eln-load-path-eff):
* src/comp.c (Fcomp_el_to_eln_filename)
(eln_load_path_final_clean_up): Prefer expand-file-name to concat.
(Bug#43725)
This commit is contained in:
Eli Zaretskii 2021-03-15 16:56:08 +02:00
parent 5e4ec4d3c9
commit aabda4263b
2 changed files with 7 additions and 7 deletions

View file

@ -3691,9 +3691,9 @@ Prepare every function for final compilation and drive the C back-end."
"Return a list of effective eln load directories.
Account for `comp-load-path' and `comp-native-version-dir'."
(mapcar (lambda (dir)
(concat (file-name-as-directory
(expand-file-name dir invocation-directory))
comp-native-version-dir))
(expand-file-name comp-native-version-dir
(file-name-as-directory
(expand-file-name dir invocation-directory))))
comp-eln-load-path))
(defun comp-trampoline-filename (subr-name)