scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hit me!

This commit is contained in:
interp 2002-10-03 12:02:47 +00:00
parent 7c3ca073dd
commit 47424d504f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/surflets.scm
View File

@ -66,7 +66,7 @@
(define (extract-bindings bindings key) (define (extract-bindings bindings key)
(let ((key (if (symbol? key) (symbol->string key) key))) (let ((key (if (symbol? key) (symbol->string key) key)))
(map cdar (map cdr
(filter (lambda (binding) (filter (lambda (binding)
(equal? (car binding) key)) (equal? (car binding) key))
bindings)))) bindings))))