scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
httpd-access-control.scm
View File

@ -6,9 +6,6 @@
;;; Right now, it is primarily useful for running the server through a ;;; Right now, it is primarily useful for running the server through a
;;; web accelerator ;;; web accelerator
;;; Also notes that this code doesn't work in vanilla 0.4.4 as
;;; host-info is broken.
(define (access-denier . hosts) (define (access-denier . hosts)
(lambda (info) (lambda (info)
(and (any? (lambda (host) (and (any? (lambda (host)
@ -58,7 +55,7 @@
(host-info:aliases info)))))) (host-info:aliases info))))))
(define normalize-host (define normalize-host
(let ((split (infix-splitter "\\.")) (let ((split (infix-splitter (make-regexp "\\.")))
(number (make-regexp "[0-9]+"))) (number (make-regexp "[0-9]+")))
(lambda (host) (lambda (host)
(let ((components (split host))) (let ((components (split host)))