From 0bdfbca902e64e6813a0e703dc28db6f537d1f90 Mon Sep 17 00:00:00 2001 From: sperber Date: Thu, 21 Feb 2002 14:01:22 +0000 Subject: [PATCH] Make regexps explicit for infix splitters. --- info-gateway.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/info-gateway.scm b/info-gateway.scm index 69cfd18..eed9497 100644 --- a/info-gateway.scm +++ b/info-gateway.scm @@ -161,8 +161,8 @@ (else (http-error http-reply/method-not-allowed req))))))) (define split-header-line - (let ((split (infix-splitter "(, *)|( +)|( *\t *)")) - (split-field (infix-splitter ": *"))) + (let ((split (infix-splitter (make-regexp "(, *)|( +)|( *\t *)"))) + (split-field (infix-splitter (make-regexp ": *")))) (lambda (l) (let ((fields (map split-field (split l)))) @@ -451,7 +451,7 @@ (define (ensure-indirect-tag-table-header port) (ensure-regexp-line port "^\\(Indirect\\)" "no indirect tag")) -(define split-indirection (infix-splitter " *: *")) +(define split-indirection (infix-splitter (make-regexp " *: *"))) (define (parse-indirection line) (let ((l (split-indirection line))) (if (null? (cdr l)) @@ -474,10 +474,10 @@ (define tag-seek-separator (ascii->char 127)) (define parse-tag - (let ((split (infix-splitter ", *")) + (let ((split (infix-splitter (make-regexp ", *"))) (split-field (infix-splitter ": ")) (split-node-info - (infix-splitter (regexp-quote (string tag-seek-separator))))) + (infix-splitter (string tag-seek-separator)))) (define (barf) (info-gateway-error "invalid tag entry in info file"))