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

2003-07-24 09:17:05 +00:00 · 2003-07-24 09:17:05 +00:00 · 32a2473d2d
parent afe38a4147
commit 32a2473d2d
1 changed files with 1 additions and 1 deletions
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@ -576,7 +576,7 @@
  (let ((match (regexp-search *resume-url-regexp* resume-url)))
    (if match
 	(match:substring match 1)
-	(values #f #f))))
+	#f)))

 (define (resume-url? resume-url)
  (regexp-search? *resume-url-regexp* resume-url))