From 7c3ca073dd4dee818ce090b358355aa55982a3da Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 3 Oct 2002 11:58:27 +0000 Subject: [PATCH] let EXTRACT-BINDINGS return strings, not bindings --- scheme/httpd/surflets/surflets.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm index df59e2e..fdf680f 100644 --- a/scheme/httpd/surflets/surflets.scm +++ b/scheme/httpd/surflets/surflets.scm @@ -66,14 +66,15 @@ (define (extract-bindings bindings key) (let ((key (if (symbol? key) (symbol->string key) key))) - (filter (lambda (binding) - (equal? (car binding) key)) - bindings))) + (map cdar + (filter (lambda (binding) + (equal? (car binding) key)) + bindings)))) (define (extract-single-binding bindings key) (let ((key-bindings (extract-bindings bindings key))) (if (= 1 (length key-bindings)) - (cdar key-bindings) + (car key-bindings) (error "extract-one-binding: more than one or zero bindings found" (length key-bindings) key bindings))))