From 1dcee7172292ac1cbdfbbe1cd94ffcbd6920282d Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 24 Jan 2003 15:29:30 +0000
Subject: [PATCH] Use ASSQ instead of ASSOC in GET-HEADER

---
 scheme/httpd/surflets/surflets.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index 85cb22f..07d1501 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -83,7 +83,7 @@
     (release-lock *cache-lock*)
     result))
 
-(define get-header assoc)
+(define get-header assq)
    
 ;; Will be needed when we handle POST requests.
 (define (get-content-length headers)