Restore :ignore property in package! macro

This commit is contained in:
Henrik Lissner 2018-03-26 16:32:05 -04:00
parent 9dc4e59a2c
commit dd24578657
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -543,9 +543,10 @@ Accepts the following properties:
(plist-put plist :recipe (cons name pkg-recipe))) (plist-put plist :recipe (cons name pkg-recipe)))
(when pkg-pin (when pkg-pin
(plist-put plist :pin nil))) (plist-put plist :pin nil)))
(let ((val (plist-get plist :freeze))) (dolist (prop '(:ignore :freeze))
(when val (let ((val (plist-get plist prop)))
(plist-put plist :freeze (eval val)))) (when val
(plist-put plist prop (eval val)))))
`(progn `(progn
,(when (and pkg-pin t) ,(when (and pkg-pin t)
`(map-put package-pinned-packages ',name ,pkg-pin)) `(map-put package-pinned-packages ',name ,pkg-pin))