use (cdr head) instead of (cdar cache), it's clearer

2004-07-21 18:59:18 +00:00 · 2004-07-21 18:59:18 +00:00 · d62e069710
parent 582e07bb18
commit d62e069710
1 changed files with 1 additions and 1 deletions
--- a/scheme/httpd/surflets/bindings.scm
+++ b/scheme/httpd/surflets/bindings.scm
@ -61,7 +61,7 @@
 		      (s-req (weak-pointer-ref (car head))))
 		 (if s-req
 		     (if (eq? s-req surflet-request)
-			 (cdar cache)	; request is cached
+			 (cdr head)	; request is cached
 			 (loop (cdr cache))) ; request isn't cached
 		     (begin
 		       ;; request object is gone ==> remove it from list