Welcome to the CHICKEN Scheme pasting service

  (define-syntax define-query
    (syntax-rules ()
      ((define-query query-string ...)
       (define query
         (let ((query
                (string-append
                 "?"
                 (begin
                   (if query-string
                       (string-append
                        (string-translate
                         (->string (quote query-string)) "-" "_")
                        "="
                        (if (eqv? query-string #t)
                            "true"
                            (->string query-string))
                        "&")
                       "")
                   ...))))
           (if (< (string-length query) 4)
               ""
               (string-chomp query "&")))))))