Fix after! macro with multiple features

This commit is contained in:
Henrik Lissner 2018-05-28 17:31:44 +02:00
parent f8b9cff4aa
commit 4863f9fbf0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -204,8 +204,8 @@ compilation. This will no-op on features that have been disabled by the user."
((and (consp targets)
(memq (car targets) '(:and :all)))
(dolist (next (cdr targets))
(setq body `(after! ,next ,@body)))
body)
(setq body `((after! ,next ,@body))))
(car body))
((listp targets)
`(after! (:all ,@targets) ,@body))))))