Skip to content

Instantly share code, notes, and snippets.

@logaan

logaan/expand-for.clj

Created August 11, 2015 13:21
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 logaan/deb519dfa94726a53610 to your computer and use it in GitHub Desktop.
Save logaan/deb519dfa94726a53610 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
expand-for.clj
(macroexpand-all
'(for [x (range 10)]
(println x)))
(let* [iter__4590__auto__ (fn* iter__16957
([s__16958]
(new clojure.lang.LazySeq
(fn* []
(loop* [s__16958 s__16958]
(let* [temp__4092__auto__ (clojure.core/seq s__16958)]
(if temp__4092__auto__
(do
(let* [s__16958 temp__4092__auto__]
(if (clojure.core/chunked-seq? s__16958)
(let* [c__4588__auto__ (clojure.core/chunk-first s__16958)
size__4589__auto__ (clojure.core/int (clojure.core/count c__4588__auto__))
b__16960 (clojure.core/chunk-buffer size__4589__auto__)]
(if (loop* [i__16959 (clojure.core/int 0)]
(if (clojure.core/< i__16959 size__4589__auto__)
(let* [x (. c__4588__auto__ nth i__16959)]
(do (clojure.core/chunk-append b__16960 (println x))
(recur (clojure.core/unchecked-inc i__16959))))
true))
(clojure.core/chunk-cons (clojure.core/chunk b__16960) (iter__16957 (clojure.core/chunk-rest s__16958)))
(clojure.core/chunk-cons (clojure.core/chunk b__16960) nil)))
(let* [x (clojure.core/first s__16958)]
(clojure.core/cons (println x) (iter__16957 (clojure.core/rest s__16958))))))))))))))]
(iter__4590__auto__ (range 10)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment