Webアプリケーションへの応用(4)

HTMLへの埋め込み
   (a/cont (lambda ....) "name")
     ↓
   (define (a/cont proc content)
     (let ((id (register-cont (lambda ....))))
       (html:a :href (format #f "x.cgi/~a" id)
               (html-escape-string content))))
     ↓
   <a href="x.cgi/332435">name</a>