Make regexps explicit for infix splitters.
Remove superfluous note about scsh 0.4.4.
This commit is contained in:
parent
0bdfbca902
commit
5d19ffbb31
|
@ -6,9 +6,6 @@
|
|||
;;; Right now, it is primarily useful for running the server through a
|
||||
;;; web accelerator
|
||||
|
||||
;;; Also notes that this code doesn't work in vanilla 0.4.4 as
|
||||
;;; host-info is broken.
|
||||
|
||||
(define (access-denier . hosts)
|
||||
(lambda (info)
|
||||
(and (any? (lambda (host)
|
||||
|
@ -58,7 +55,7 @@
|
|||
(host-info:aliases info))))))
|
||||
|
||||
(define normalize-host
|
||||
(let ((split (infix-splitter "\\."))
|
||||
(let ((split (infix-splitter (make-regexp "\\.")))
|
||||
(number (make-regexp "[0-9]+")))
|
||||
(lambda (host)
|
||||
(let ((components (split host)))
|
||||
|
|
Loading…
Reference in New Issue