Changeset 32947 in project


Ignore:
Timestamp:
11/29/15 17:27:05 (5 years ago)
Author:
sjamaan
Message:

spiffy: Improve indentation of process-entry a little bit

File:
1 edited

Legend:

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

    r32946 r32947  
    406406      ((handle-not-found) (make-pathname "/" current-path)))
    407407     ((directory? full-path)
    408       (apply-access-file full-path
    409                          (lambda ()
    410                            (if (null? remaining-path)
    411                                (redirect-directory-root
    412                                (make-pathname "/" current-path))
    413                                ;; Ignore empty path components like most
    414                                ;; webservers do.  It's slightly broken but
    415                                ;; enough scripts generate bad URIs that it's
    416                                ;; a useful thing to do.  (maybe we shouldn't?)
    417                                (let lp ((remaining-path remaining-path))
    418                                  (cond
    419                                   ((null? remaining-path)
    420                                    (process-directory current-path))
    421                                   ((string=? "" (car remaining-path))
    422                                    (lp (cdr remaining-path)))
    423                                   (else
    424                                    (process-entry current-path
    425                                                   (car remaining-path)
    426                                                   (cdr remaining-path)))))))))
     408      (apply-access-file
     409       full-path
     410       (lambda ()
     411         (if (null? remaining-path)
     412             (redirect-directory-root (make-pathname "/" current-path))
     413             ;; Ignore empty path components like most
     414             ;; webservers do.  It's slightly broken but
     415             ;; enough scripts generate bad URIs that it's
     416             ;; a useful thing to do.  (maybe we shouldn't?)
     417             (let lp ((remaining-path remaining-path))
     418               (cond
     419                ((null? remaining-path)
     420                 (process-directory current-path))
     421                ((string=? "" (car remaining-path))
     422                 (lp (cdr remaining-path)))
     423                (else
     424                 (process-entry current-path
     425                                (car remaining-path)
     426                                (cdr remaining-path)))))))))
    427427     ((file-exists? full-path)
    428428      (parameterize ((current-pathinfo remaining-path)
Note: See TracChangeset for help on using the changeset viewer.