Skip to content

Instantly share code, notes, and snippets.

@aboekhoff aboekhoff/cont-m.clj
Created Jun 28, 2010

Embed
What would you like to do?
;;;; this cps style code
(anf-name x (fn [a]
(anf y (fn [b]
(anf z (fn [c]
(k [:if a b c])))
;;;; becomes
(run-cps
a <- (anf-name x)
b <- (anf y)
c <- (anf z)
(return [:if a b c]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.