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

マクロの利用
      (define (download context)
        (if (logged-in? context)
          (redirect-to-download-link)
          (receive/form (username password)
                (show-login-form)
            (login username password download))))