Evals a form with given locals. The locals should be a map of symbols to
values.
(defn eval-with-locals
"Evals a form with given locals. The locals should be a map of symbols to
values."
[locals form]
(binding [*locals* locals]
(eval
`(let ~(vec (mapcat #(list % `(*locals* '~%)) (keys locals)))
~form))))
Comments top
No comments for eval-with-locals. Log in to add a comment.