From 35565068fb28bdb11ef7c857ae0c642de2938bd1 Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Sun, 15 Aug 2004 12:02:36 +0000
Subject: [PATCH] char-set:blank = LWS from RFC 2616 (after folding)

---
 scheme/lib/sunet-utilities.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/scheme/lib/sunet-utilities.scm b/scheme/lib/sunet-utilities.scm
index 78b393b..96b0713 100644
--- a/scheme/lib/sunet-utilities.scm
+++ b/scheme/lib/sunet-utilities.scm
@@ -73,7 +73,6 @@
   (cond ((assq tag headers) => cdr)
 	(else #f)))
 
-
 ;; GET-NUMERIC-FIELD-VALUE
 ;; generalized function to get a field value of the form 1*DIGIT
 ;; req is a request record, field-name a symbol
@@ -90,7 +89,7 @@
       ((field-content (get-header (request-headers req) field-name)))
     (if field-content ;; request contained "field-name" header
 	(let ;;see * below
-	    ((field-value (string->number (string-trim-both field-content char-set:whitespace)))) ;;char-set:whitespace = LWS from RFC2616?
+	    ((field-value (string->number (string-trim-both field-content char-set:blank)))) ;;char-set:blank = Space + Tab = LWS from RFC2616 after folding
 	  (if (and (integer? field-value) (>= field-value 0)) ;;yes, field value contained only digits, and at least one digit.
 	      field-value
 	      (http-error