From 32a2473d2d25b0a838f2635c78a1b51f6d140964 Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 24 Jul 2003 09:17:05 +0000 Subject: [PATCH] Remove wrong multiple value return from RESUME-URL-SURFLET-NAME --- scheme/httpd/surflets/surflet-handler.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index e4af9af..380c20f 100644 --- 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))