doom-initialize: don't use when-let this early (subr-x not loaded yet)

This commit is contained in:
Henrik Lissner 2017-02-20 13:05:34 -05:00
parent 9895a42b17
commit dc9133fcc7

View file

@ -124,14 +124,15 @@ to speed up startup."
(setq load-path (append load-path (directory-files package-user-dir t "^[a-zA-Z0-9]" t))) (setq load-path (append load-path (directory-files package-user-dir t "^[a-zA-Z0-9]" t)))
;; Ensure core packages are installed ;; Ensure core packages are installed
(when-let (core-packages (cl-remove-if 'package-installed-p doom-protected-packages)) (let ((core-packages (cl-remove-if 'package-installed-p doom-protected-packages)))
(when core-packages
(package-refresh-contents) (package-refresh-contents)
(dolist (pkg core-packages) (dolist (pkg core-packages)
(let ((inhibit-message t)) (let ((inhibit-message t))
(package-install pkg)) (package-install pkg))
(if (package-installed-p pkg) (if (package-installed-p pkg)
(message "Installed %s" pkg) (message "Installed %s" pkg)
(error "Couldn't install %s" pkg)))) (error "Couldn't install %s" pkg)))))
(require 'quelpa) (require 'quelpa)
(require 'use-package) (require 'use-package)