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

use char-set:digit instead of deprecated char-set:numeric

This commit is contained in:
interp 2002-08-23 15:44:40 +00:00
parent ed4ad0798f
commit 5f654f5fc3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/cgi-server.scm
View File

@ -215,7 +215,7 @@
,@(cond ((get-header headers 'content-length) => ,@(cond ((get-header headers 'content-length) =>
(lambda (cl) ; Skip initial whitespace (& other non-digits). (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))) (cl-len (string-length cl)))
(if first-digit (if first-digit
`(("CONTENT_LENGTH" . ,(substring cl first-digit cl-len))) `(("CONTENT_LENGTH" . ,(substring cl first-digit cl-len)))