例:再帰によるマッチング(4)

一致する毎にユーザに問い合わせ
    (define (match p i)
      (or (matchr p i '()
            (lambda (i r)
              (call/cc
                (lambda (k)
                  (html:p
                    (format #t "matched: ~a"
                            (reverse r))
                    (a/cont k "next match"))))))
          (html:p "no match")))
実はうまくいかない