Hit me!

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