Clojure macro snippet

(def current-state {:funcs [] :data [] :pc 0 :name :entry})

(defmacro with-state [state body]
    `(let [{:keys [funcs data pc name]} ~state]
        ~body))

(with-state current-state (println name))