Make regexps explicit for infix splitters.

Remove superfluous note about scsh 0.4.4.
This commit is contained in:
sperber 2002-02-21 14:02:07 +00:00
parent 0bdfbca902
commit 5d19ffbb31
1 changed files with 1 additions and 4 deletions

View File

@ -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)))