Skip to content

Instantly share code, notes, and snippets.

@ghadishayban
Last active August 29, 2015 14:06
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save ghadishayban/639009900ce1933256a1 to your computer and use it in GitHub Desktop.
doseq expansion
(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__)
(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