在 letfn 体中，go 忽略异步代码

Question

以下代码片段失败，因为 <! 在 {{go}} 边界之外。

`
(let [port (a/chan)]
(a/go

(letfn [(my-even? [n] (if (zero? n) true (my-odd? (dec n))))
        (my-odd? [n] (if (zero? n) false (my-even? (dec n))))]
  (my-even? (a/<! port)))))

`

{{letfn}} 体中的异步代码应由 {{go}} 宏重新编写，因为所有绑定函数在主体开始时都可以正确初始化。

Answer 1

评论由：bronsa 提供

移除坏补丁

Answer 2

评论由：alexmiller 提供

这个补丁的状态是什么？ 0001-ASYNC-221-handle-letfn-in-ioc+test.patch 是补丁吗？

Answer 3

评论由：leonoel 提供

不是，修复和测试都是错误的。
修复没有正确建立循环引用，测试未能检查它因为其阴影 clojure.core 的 odd?/even?。

Answer 4

评论由：leonoel 提供

更新例子以正确检查循环引用

Answer 5

参考：[https://clojure.atlassian.net/browse/ASYNC-221](https://clojure.atlassian.net/browse/ASYNC-221)（由leonoel报告）