运行此代码最终会抛出OOME
`
(let [c (a/chan)]
(a/go (while (a/<! c)))
(a/go
(when-some [xs (range)]
(doseq [x xs]
(a/>! c x)))))
`
这个(用{{let}}而不是{{when-some}})可以正常工作
`
(let [c (a/chan)]
(a/go (while (a/<! c)))
(a/go
(let [xs (range)]
(doseq [x xs]
(a/>! c x)))))
`
在前者中,range序列被存储在堆中(在go块的状态数组中),并且在doseq迭代期间一直保留,尽管在循环初始化后不再需要。
在后者中,range序列被存储在栈上,因此编译器能够执行其局部清除魔法。
这种行为可能发生在跨越多个ssablock的每个值上。