#む、writeのcircular detection時点でポートがロックされてないことがある。何故だ。
#こんにちは。細かなことなのですが、utilのmatch.scmの以下の部分
#(fail (and (pair? (cdr c))
(pair? (cadr c))
(equal? (caadr c) '=>)
(symid? (cadadr c))
(pair? (cdadr c))
(null? (cddadr c))
(pair? (cddr c))
(cadadr c)))
#(symid? (cadadr c))と(pair? (cdadr c))の順番が逆だと思うのですが、どうでしょうか。
#あ、コピペしたコードはgenmatch関数内の一部です。