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

Remove wrong multiple value return from RESUME-URL-SURFLET-NAME

This commit is contained in:
interp 2003-07-24 09:17:05 +00:00
parent afe38a4147
commit 32a2473d2d
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/surflets/surflet-handler.scm
View File

@ -576,7 +576,7 @@
(let ((match (regexp-search *resume-url-regexp* resume-url))) (let ((match (regexp-search *resume-url-regexp* resume-url)))
(if match (if match
(match:substring match 1) (match:substring match 1)
(values #f #f)))) #f)))
(define (resume-url? resume-url) (define (resume-url? resume-url)
(regexp-search? *resume-url-regexp* resume-url)) (regexp-search? *resume-url-regexp* resume-url))