Created
November 17, 2011 19:08
-
-
Save anonymous/1374112 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<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