From 5f654f5fc3f2c4ed55bac6b4e9b80b70f67cd006 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 23 Aug 2002 15:44:40 +0000
Subject: [PATCH] use char-set:digit instead of deprecated char-set:numeric

---
 scheme/httpd/cgi-server.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index d8e7746..5c6a2b7 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -215,7 +215,7 @@
 
 	  ,@(cond ((get-header headers 'content-length) =>
 		   (lambda (cl)	; Skip initial whitespace (& other non-digits).
-		     (let ((first-digit (string-index cl char-set:numeric))
+		     (let ((first-digit (string-index cl char-set:digit))
 			   (cl-len (string-length cl)))
 		       (if first-digit
 			   `(("CONTENT_LENGTH" . ,(substring cl first-digit cl-len)))