forked from colonelpanic/dotfiles
fix imalison:dynamic-let-advise-around
This commit is contained in:
parent
80da7a550f
commit
5c7bd61668
@ -256,9 +256,10 @@
|
|||||||
(let ,forms
|
(let ,forms
|
||||||
(apply orig-func args))))
|
(apply orig-func args))))
|
||||||
|
|
||||||
(defmacro imalison:dynamic-let-advise-around (name getter)
|
(defmacro imalison:dynamic-let-advise-around (name &rest getters)
|
||||||
`(defun ,name (orig-func &rest args)
|
`(defun ,name (orig-func &rest args)
|
||||||
(let ,(funcall getter)
|
(let ,(cl-loop for pair in getters
|
||||||
|
collect `(,(car pair) (funcall ,(cadr pair))))
|
||||||
(apply orig-func args))))
|
(apply orig-func args))))
|
||||||
|
|
||||||
(defun imalison:uuid ()
|
(defun imalison:uuid ()
|
||||||
|
Loading…
Reference in New Issue
Block a user