Hit me!

2002-10-03 12:02:47 +00:00 · 2002-10-03 12:02:47 +00:00 · 47424d504f
parent 7c3ca073dd
commit 47424d504f
1 changed files with 1 additions and 1 deletions
--- 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))))