From 5d19ffbb31bb6e0a3eec322e151154a750f9051f Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 21 Feb 2002 14:02:07 +0000
Subject: [PATCH] Make regexps explicit for infix splitters. Remove superfluous
 note about scsh 0.4.4.

---
 httpd-access-control.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/httpd-access-control.scm b/httpd-access-control.scm
index b9689d6..aea2d8e 100644
--- a/httpd-access-control.scm
+++ b/httpd-access-control.scm
@@ -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)))