Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defn compile-log-message
[fct-name binding-vec]
(let [bindings (bindings->bound-vars binding-vec)]
`(log-symbol-values
~(function-log-prefix fct-name)
(quote ~bindings)
~bindings)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment