template macro

(def -x- ’a)

($ (+ ~-x- 2 3)) => ’(+ a 2 3)

(let [a []] ($ (~@a))) => ()

(let a nil ($ (~@a))) => ()

marker for a template form

evals local variables

(let x 1 (binding locals (template:locals) (local-eval ’(+ x x)))) => 2

replace arguments with values

(replace-template ’(+ $0 $1 $2) ’x y z) => ’(+ x y z)

replace unquote and unquote splicing

(let x 1 (binding locals (template:locals) (replace-unquotes ’(+ ~x ~@(list x 1 2 3))))) => ’(+ 1 1 1 2 3)

replace body with template

(let -x- ’a (binding locals (template:locals) (template-fn ’(+ ~-x- 2 nil)))) => ’(+ a 2 nil)

gets local variable symbol names and values

(let x 1 y 2 (template:locals)) => ’{x 1, y 2}