Gauche > Archives > 2014/04/09

2014/04/09 14:09:59 UTCshiro
#
む、writeのcircular detection時点でポートがロックされてないことがある。何故だ。
2014/04/09 22:38:40 UTCaharisu
#
こんにちは。細かなことなのですが、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関数内の一部です。