Skip to content

Instantly share code, notes, and snippets.

@aboekhoff

aboekhoff/cont-m.clj

Created June 28, 2010 09:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aboekhoff/455646 to your computer and use it in GitHub Desktop.
Save aboekhoff/455646 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cont-m.clj
;;;; 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