Last active
August 29, 2015 14:06
-
-
Save ghadishayban/639009900ce1933256a1 to your computer and use it in GitHub Desktop.
doseq expansion
This file contains hidden or 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
| (let* | |
| [c__6072__auto__ | |
| (clojure.core.async/chan 1) | |
| captured-bindings__6073__auto__ | |
| (clojure.lang.Var/getThreadBindingFrame)] | |
| (clojure.core.async.impl.dispatch/run | |
| (clojure.core/fn | |
| [] | |
| (clojure.core/let | |
| [f__6074__auto__ | |
| (clojure.core/fn | |
| state-machine__5887__auto__ | |
| ([] | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| (java.util.concurrent.atomic.AtomicReferenceArray. 14) | |
| 0 | |
| state-machine__5887__auto__ | |
| 1 | |
| 1)) | |
| ([state_7970] | |
| (clojure.core/let | |
| [old-frame__5888__auto__ | |
| (clojure.lang.Var/getThreadBindingFrame) | |
| ret-value__5889__auto__ | |
| (try | |
| (clojure.lang.Var/resetThreadBindingFrame | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 3)) | |
| (clojure.core/loop | |
| [] | |
| (clojure.core/let | |
| [result__5890__auto__ | |
| (clojure.core/case | |
| (clojure.core/int | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 1)) | |
| 7 | |
| (clojure.core/let | |
| [inst_7933 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 7) | |
| inst_7932 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 8) | |
| inst_7935 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 9) | |
| inst_7934 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 10) | |
| inst_7941 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 2) | |
| i_7929 | |
| inst_7935 | |
| inst_7942 | |
| (. | |
| clojure.lang.Numbers | |
| (clojure.core/unchecked_inc i_7929)) | |
| tmp7971 | |
| inst_7933 | |
| tmp7972 | |
| inst_7932 | |
| tmp7973 | |
| inst_7934 | |
| inst_7932 | |
| tmp7972 | |
| inst_7933 | |
| tmp7971 | |
| inst_7934 | |
| tmp7973 | |
| inst_7935 | |
| inst_7942 | |
| state_7970 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 7 | |
| inst_7933 | |
| 8 | |
| inst_7932 | |
| 11 | |
| inst_7941 | |
| 9 | |
| inst_7935 | |
| 10 | |
| inst_7934)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| nil | |
| 1 | |
| 2) | |
| :recur)) | |
| 1 | |
| (clojure.core/let | |
| [inst_7931 | |
| (clojure.core/seq chs) | |
| inst_7932 | |
| inst_7931 | |
| inst_7933 | |
| nil | |
| inst_7934 | |
| 0 | |
| inst_7935 | |
| 0 | |
| state_7970 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 7 | |
| inst_7933 | |
| 8 | |
| inst_7932 | |
| 9 | |
| inst_7935 | |
| 10 | |
| inst_7934)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| nil | |
| 1 | |
| 2) | |
| :recur)) | |
| 4 | |
| (clojure.core/let | |
| [inst_7933 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 7) | |
| inst_7935 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 9) | |
| chunk_7927 | |
| inst_7933 | |
| i_7929 | |
| inst_7935 | |
| inst_7939 | |
| (. chunk_7927 (nth i_7929))] | |
| (clojure.core.async.impl.ioc-macros/put! | |
| state_7970 | |
| 7 | |
| inst_7939 | |
| :foo)) | |
| 13 | |
| (clojure.core/let | |
| [inst_7961 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 2)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| inst_7961 | |
| 1 | |
| 10) | |
| :recur)) | |
| 6 | |
| (clojure.core/let | |
| [inst_7966 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 2)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| inst_7966 | |
| 1 | |
| 3) | |
| :recur)) | |
| 3 | |
| (clojure.core/let | |
| [inst_7968 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 2)] | |
| (clojure.core.async.impl.ioc-macros/return-chan | |
| state_7970 | |
| inst_7968)) | |
| 12 | |
| (clojure.core/let | |
| [inst_7945 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 12) | |
| seq_7926 | |
| inst_7945 | |
| inst_7955 | |
| (clojure.core/first seq_7926)] | |
| (clojure.core.async.impl.ioc-macros/put! | |
| state_7970 | |
| 14 | |
| inst_7955 | |
| :foo)) | |
| 2 | |
| (clojure.core/let | |
| [inst_7935 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 9) | |
| inst_7934 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 10) | |
| count_7928 | |
| inst_7934 | |
| i_7929 | |
| inst_7935 | |
| inst_7937 | |
| (. | |
| clojure.lang.Numbers | |
| (clojure.core/lt i_7929 count_7928))] | |
| (do | |
| (if | |
| inst_7937 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 1 | |
| 4) | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 1 | |
| 5)) | |
| :recur)) | |
| 11 | |
| (clojure.core/let | |
| [inst_7945 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 12) | |
| seq_7926 | |
| inst_7945 | |
| inst_7949 | |
| (clojure.core/chunk-first seq_7926) | |
| seq_7926 | |
| inst_7945 | |
| inst_7950 | |
| (clojure.core/chunk-rest seq_7926) | |
| c__4356__auto__ | |
| inst_7949 | |
| inst_7951 | |
| (. | |
| clojure.lang.RT | |
| (intCast (clojure.core/count c__4356__auto__))) | |
| inst_7952 | |
| (. clojure.lang.RT (intCast 0)) | |
| inst_7932 | |
| inst_7950 | |
| inst_7933 | |
| inst_7949 | |
| inst_7934 | |
| inst_7951 | |
| inst_7935 | |
| inst_7952 | |
| state_7970 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 7 | |
| inst_7933 | |
| 8 | |
| inst_7932 | |
| 9 | |
| inst_7935 | |
| 10 | |
| inst_7934)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| nil | |
| 1 | |
| 2) | |
| :recur)) | |
| 9 | |
| (clojure.core/let | |
| [] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| nil | |
| 1 | |
| 10) | |
| :recur)) | |
| 5 | |
| (clojure.core/let | |
| [inst_7932 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 8) | |
| inst_7945 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 12) | |
| seq_7926 | |
| inst_7932 | |
| inst_7945 | |
| (clojure.core/seq seq_7926) | |
| state_7970 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 12 | |
| inst_7945)] | |
| (do | |
| (if | |
| inst_7945 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 1 | |
| 8) | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 1 | |
| 9)) | |
| :recur)) | |
| 14 | |
| (clojure.core/let | |
| [inst_7945 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 12) | |
| inst_7957 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 2) | |
| seq_7926 | |
| inst_7945 | |
| inst_7958 | |
| (clojure.core/next seq_7926) | |
| inst_7932 | |
| inst_7958 | |
| inst_7933 | |
| nil | |
| inst_7934 | |
| 0 | |
| inst_7935 | |
| 0 | |
| state_7970 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 7 | |
| inst_7933 | |
| 8 | |
| inst_7932 | |
| 13 | |
| inst_7957 | |
| 9 | |
| inst_7935 | |
| 10 | |
| inst_7934)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| nil | |
| 1 | |
| 2) | |
| :recur)) | |
| 10 | |
| (clojure.core/let | |
| [inst_7964 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 2)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 2 | |
| inst_7964 | |
| 1 | |
| 6) | |
| :recur)) | |
| 8 | |
| (clojure.core/let | |
| [inst_7945 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_7970 | |
| 12) | |
| seq_7926 | |
| inst_7945 | |
| inst_7947 | |
| (clojure.core/chunked-seq? seq_7926)] | |
| (do | |
| (if | |
| inst_7947 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 1 | |
| 11) | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| 1 | |
| 12)) | |
| :recur)))] | |
| (if | |
| (clojure.core/identical? result__5890__auto__ :recur) | |
| (recur) | |
| result__5890__auto__))) | |
| (catch | |
| java.lang.Throwable | |
| ex__5891__auto__ | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_7970 | |
| clojure.core.async.impl.ioc-macros/CURRENT-EXCEPTION | |
| ex__5891__auto__) | |
| (clojure.core.async.impl.ioc-macros/process-exception | |
| state_7970) | |
| :recur) | |
| (finally | |
| (clojure.lang.Var/resetThreadBindingFrame | |
| old-frame__5888__auto__)))] | |
| (if | |
| (clojure.core/identical? ret-value__5889__auto__ :recur) | |
| (recur state_7970) | |
| ret-value__5889__auto__)))) | |
| state__6075__auto__ | |
| (clojure.core/-> | |
| (f__6074__auto__) | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| clojure.core.async.impl.ioc-macros/USER-START-IDX | |
| c__6072__auto__ | |
| clojure.core.async.impl.ioc-macros/BINDINGS-IDX | |
| captured-bindings__6073__auto__))] | |
| (clojure.core.async.impl.ioc-macros/run-state-machine-wrapped | |
| state__6075__auto__)))) | |
| c__6072__auto__) |
This file contains hidden or 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
| (let* | |
| [c__8381__auto__ | |
| (clojure.core.async/chan 1) | |
| captured-bindings__8382__auto__ | |
| (clojure.lang.Var/getThreadBindingFrame)] | |
| (clojure.core.async.impl.dispatch/run | |
| (clojure.core/fn | |
| [] | |
| (clojure.core/let | |
| [f__8383__auto__ | |
| (clojure.core/fn | |
| state-machine__8196__auto__ | |
| ([] | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| (java.util.concurrent.atomic.AtomicReferenceArray. 10) | |
| 0 | |
| state-machine__8196__auto__ | |
| 1 | |
| 1)) | |
| ([state_10185] | |
| (clojure.core/let | |
| [old-frame__8197__auto__ | |
| (clojure.lang.Var/getThreadBindingFrame) | |
| ret-value__8198__auto__ | |
| (try | |
| (clojure.lang.Var/resetThreadBindingFrame | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 3)) | |
| (clojure.core/loop | |
| [] | |
| (clojure.core/let | |
| [result__8199__auto__ | |
| (clojure.core/case | |
| (clojure.core/int | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 1)) | |
| 7 | |
| (clojure.core/let | |
| [inst_10171 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 7) | |
| inst_10176 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 2) | |
| chs | |
| inst_10171 | |
| inst_10177 | |
| (next chs) | |
| inst_10171 | |
| inst_10177 | |
| state_10185 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 7 | |
| inst_10171 | |
| 8 | |
| inst_10176)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 2 | |
| nil | |
| 1 | |
| 2) | |
| :recur)) | |
| 6 | |
| (clojure.core/let | |
| [inst_10181 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 2)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 2 | |
| inst_10181 | |
| 1 | |
| 3) | |
| :recur)) | |
| 5 | |
| (clojure.core/let | |
| [] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 2 | |
| nil | |
| 1 | |
| 6) | |
| :recur)) | |
| 4 | |
| (clojure.core/let | |
| [inst_10173 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 9)] | |
| (clojure.core.async.impl.ioc-macros/put! | |
| state_10185 | |
| 7 | |
| inst_10173 | |
| :foo)) | |
| 3 | |
| (clojure.core/let | |
| [inst_10183 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 2)] | |
| (clojure.core.async.impl.ioc-macros/return-chan | |
| state_10185 | |
| inst_10183)) | |
| 2 | |
| (clojure.core/let | |
| [inst_10171 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 7) | |
| inst_10173 | |
| (clojure.core.async.impl.ioc-macros/aget-object | |
| state_10185 | |
| 9) | |
| chs | |
| inst_10171 | |
| inst_10173 | |
| (first chs) | |
| state_10185 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 9 | |
| inst_10173)] | |
| (do | |
| (if | |
| inst_10173 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 1 | |
| 4) | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 1 | |
| 5)) | |
| :recur)) | |
| 1 | |
| (clojure.core/let | |
| [inst_10170 | |
| chs | |
| inst_10171 | |
| inst_10170 | |
| state_10185 | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 7 | |
| inst_10171)] | |
| (do | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| 2 | |
| nil | |
| 1 | |
| 2) | |
| :recur)))] | |
| (if | |
| (clojure.core/identical? result__8199__auto__ :recur) | |
| (recur) | |
| result__8199__auto__))) | |
| (catch | |
| java.lang.Throwable | |
| ex__8200__auto__ | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| state_10185 | |
| clojure.core.async.impl.ioc-macros/CURRENT-EXCEPTION | |
| ex__8200__auto__) | |
| (clojure.core.async.impl.ioc-macros/process-exception | |
| state_10185) | |
| :recur) | |
| (finally | |
| (clojure.lang.Var/resetThreadBindingFrame | |
| old-frame__8197__auto__)))] | |
| (if | |
| (clojure.core/identical? ret-value__8198__auto__ :recur) | |
| (recur state_10185) | |
| ret-value__8198__auto__)))) | |
| state__8384__auto__ | |
| (clojure.core/-> | |
| (f__8383__auto__) | |
| (clojure.core.async.impl.ioc-macros/aset-all! | |
| clojure.core.async.impl.ioc-macros/USER-START-IDX | |
| c__8381__auto__ | |
| clojure.core.async.impl.ioc-macros/BINDINGS-IDX | |
| captured-bindings__8382__auto__))] | |
| (clojure.core.async.impl.ioc-macros/run-state-machine-wrapped | |
| state__8384__auto__)))) | |
| c__8381__auto__) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment