Changeset 12538 in project for release/4/spiffy/trunk/spiffy.scm


Ignore:
Timestamp:
11/16/08 22:03:04 (12 years ago)
Author:
sjamaan
Message:

Minor reformatting to make code more compact

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/spiffy.scm

    r12536 r12538  
    339339          (parameterize ((current-request req)
    340340                         (request-restarter cont))
    341             (handle-exceptions exn ((handle-exception) exn
    342                                     (with-output-to-string print-call-chain))
    343                                (if (and (uri-host (request-uri (current-request))) (pair? path))
    344                                    (let* ((host (uri-host (request-uri (current-request))))
    345                                           (handler (alist-ref host
    346                                                               (vhost-map)
    347                                                               (lambda (h _)
    348                                                                 (if (not (regexp? h))
    349                                                                     (string-match (regexp h #t) host)
    350                                                                     (string-match h host))))))
    351                                      (if handler
    352                                          (handler (lambda () (process-entry "" path)))
    353                                          ;; Is this ok?
    354                                          (send-status 404 "Not found" "<p>Host not found</p>")))
    355                                    ;; No host in the request? That's an error.
    356                                    (send-status 400 "Bad request"
    357                                                 "<p>Your client sent a request that the server did not understand</p>")))))
     341            (handle-exceptions
     342             exn ((handle-exception) exn
     343                  (with-output-to-string print-call-chain))
     344             (if (and (uri-host (request-uri (current-request))) (pair? path))
     345                 (let* ((host (uri-host (request-uri (current-request))))
     346                        (handler (alist-ref host (vhost-map)
     347                                            (lambda (h _)
     348                                              (if (not (regexp? h))
     349                                                  (string-match (regexp h #t) host)
     350                                                  (string-match h host))))))
     351                   (if handler
     352                       (handler (lambda () (process-entry "" path)))
     353                       ;; Is this ok?
     354                       (send-status 404 "Not found" "<p>Host not found</p>")))
     355                 ;; No host in the request? That's an error.
     356                 (send-status 400 "Bad request"
     357                              "<p>Your client sent a request that the server did not understand</p>")))))
    358358        ;; For now, just close the ports and allow the thread to exit
    359359        (close-output-port out)
Note: See TracChangeset for help on using the changeset viewer.