Fix #2556 (hopefully): exec format error on Windows

This commit is contained in:
Henrik Lissner 2020-02-19 17:52:05 -05:00
parent f0bc835d19
commit 71e5a5513b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -116,8 +116,7 @@ declaration) or dependency thereof that hasn't already been."
(make-hash-table :test #'equal))) (make-hash-table :test #'equal)))
(recipes (doom-package-recipe-list))) (recipes (doom-package-recipe-list)))
(unless force-p (unless force-p
(straight--make-build-cache-available) (straight--make-build-cache-available))
(straight--make-package-modifications-available))
(if-let (built (if-let (built
(doom-with-package-recipes recipes (package local-repo) (doom-with-package-recipes recipes (package local-repo)
(unless force-p (unless force-p
@ -125,6 +124,7 @@ declaration) or dependency thereof that hasn't already been."
(let ((build-dir (straight--build-dir package)) (let ((build-dir (straight--build-dir package))
(repo-dir (straight--repos-dir local-repo))) (repo-dir (straight--repos-dir local-repo)))
(and (or (file-newer-than-file-p repo-dir build-dir) (and (or (file-newer-than-file-p repo-dir build-dir)
(file-exists-p (straight--modified-dir (or local-repo package)))
;; Doesn't make sense to compare el and elc files ;; Doesn't make sense to compare el and elc files
;; when the former isn't a symlink to their source. ;; when the former isn't a symlink to their source.
(when straight-use-symlinks (when straight-use-symlinks