From 47424d504fcd0041e5f4111199887c93d107b0fc Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 3 Oct 2002 12:02:47 +0000 Subject: [PATCH] Hit me! --- scheme/httpd/surflets/surflets.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm index fdf680f..07c8473 100644 --- a/scheme/httpd/surflets/surflets.scm +++ b/scheme/httpd/surflets/surflets.scm @@ -66,7 +66,7 @@ (define (extract-bindings bindings key) (let ((key (if (symbol? key) (symbol->string key) key))) - (map cdar + (map cdr (filter (lambda (binding) (equal? (car binding) key)) bindings))))