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))))