Skip to content

Instantly share code, notes, and snippets.

Created November 17, 2011 19:08
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 anonymous/1374112 to your computer and use it in GitHub Desktop.
Save anonymous/1374112 to your computer and use it in GitHub Desktop.
<Raynes> (macroexpand '(for [x [1 2]] (* 2 (- x 10))))
<lazybot> => (let* [iter__4191__auto__ (clojure.core/fn iter__14790
[s__14791] (clojure.core/lazy-seq (clojure.core/loop [s__14791
s__14791] (clojure.core/when-let [s__14791 (clojure.core/seq s__14791)]
(if (clojure.core/chunked-seq? s__14791) (clojure.core/let
[c__4189__auto__ (clojure.core/chunk-first s__14791)
size__4190__auto__ (clojure.core/int (clojure.core/count
c__4189__auto__)) b__14793 (clojure.core/chunk-buffer
size__4190__auto__)] (if (clojure.core/loop [i__14792
(clojure.core/int 0)] (if (clojure.core/< i__14792 size__4190__auto__)
(clojure.core/let [x (.nth c__4189__auto__ i__14792)] (do
(clojure.core/chunk-append b__14793 (* 2 (- x 10))) (recur
(clojure.core/unchecked-inc i__14792)))) true)) (clojure.core/chunk-cons
(clojure.core/chunk b__14793) (iter__14790 (clojure.core/chunk-rest
s__14791))) (clojure.core/chunk-cons (clojure.core/chunk b__14793) nil)))
(clojure.core/let [x (clojure.core/first s__14791)] (clojure.core/cons
(* 2 (- x 10)) (iter__14790 (clojure.core/rest s__14791)))))))))]
(iter__4191__auto__ [1 2]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment