Changeset 33188 in project


Ignore:
Timestamp:
02/14/16 14:04:35 (4 years ago)
Author:
sjamaan
Message:

spiffy: Fix alist-ref abuse: don't rely on comparison procedure argument order!

We now use assoc, for which the order is strictly defined.

File:
1 edited

Legend:

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

    r32948 r33188  
    22;; Spiffy the web server
    33;;
    4 ; Copyright (c) 2007-2015, Peter Bex
     4; Copyright (c) 2007-2016, Peter Bex
    55; Copyright (c) 2000-2005, Felix L. Winkelmann
    66; All rights reserved.
     
    510510               (let ((host (uri-host (request-uri (current-request)))))
    511511                 (if (and host (uri-path-absolute? (request-uri (current-request))))
    512                      (let ((handler
    513                             (alist-ref host compiled-vhost-map
    514                                        (lambda (ir _)
    515                                          (irregex-match ir host)))))
    516                        (if handler
    517                            (handler (lambda ()
    518                                       (process-entry
    519                                        "" ""
    520                                        (cdr (uri-path (request-uri
    521                                                        (current-request)))))))
     512                     (let ((ir&handler
     513                            (assoc host compiled-vhost-map
     514                                   (lambda (host ir)
     515                                     (irregex-match ir host)))))
     516                       (if ir&handler
     517                           ((cdr ir&handler)
     518                            (lambda ()
     519                              (process-entry
     520                               "" ""
     521                               (cdr (uri-path (request-uri
     522                                               (current-request)))))))
    522523                           ;; Is this ok?
    523524                           ((handle-not-found)
Note: See TracChangeset for help on using the changeset viewer.