<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>94631</integer>
    </number>
    <user>
      <string>mario-goulart</string>
    </user>
    <title>
      <string>with-request-vars</string>
    </title>
    <contents>
      <string>(define-syntax with-request-vars
  (syntax-rules ()
    ((_ (var1 ...) e1 e2 ...)
     (let* ((% (request-vars))
            (var1 (% (quote var1)))
            ...)
       e1 e2 ...))))

(define-syntax with-request-vars*
  (syntax-rules ()
    ((_ % (var1 ...) e1 e2 ...)
     (let* ((var1 (% (quote var1)))
            ...)
       e1 e2 ...))))
</string>
    </contents>
    <universal-time>
      <integer>3474708213</integer>
    </universal-time>
    <channel>
      <string>#chicken</string>
    </channel>
    <colorization-mode>
      <string>Scheme</string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </paste>
</paste-with-annotations>
