From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 Nov 2004 16:23:34 +0000 (+0000)
Subject: Cookie keyword must be a symbol.
X-Git-Tag: 20090517-FFI~1448
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=833d3fe7c3ebc396eaf575647be185fb097602c0;p=mit-scheme.git

Cookie keyword must be a symbol.
---

diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm
index c21ab8031..75f25120c 100644
--- a/v7/src/ssp/mod-lisp.scm
+++ b/v7/src/ssp/mod-lisp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: mod-lisp.scm,v 1.13 2004/11/22 14:03:02 cph Exp $
+$Id: mod-lisp.scm,v 1.14 2004/11/22 16:23:34 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -473,19 +473,6 @@ USA.
 	       (else
 		(values #f start))))
       (values #f #f)))
-
-(define (parse-cookie message string)
-  (set-http-message-cookies!
-   message
-   (append! (http-message-cookies message)
-	    (map (lambda (binding)
-		   (let ((nv (burst-string binding #\= #f)))
-		     (if (not (and (pair? nv)
-				   (pair? (cdr nv))
-				   (null? (cddr nv))))
-			 (error "Malformed cookie value:" string))
-		     (cons (car nv) (cdr nv))))
-		 (map string-trim (burst-string string #\; #f))))))
 
 ;;;; HTTP message datatype
 
@@ -620,6 +607,19 @@ USA.
 
 ;;;; Cookie support
 
+(define (parse-cookie message string)
+  (set-http-message-cookies!
+   message
+   (append! (http-message-cookies message)
+	    (map (lambda (binding)
+		   (let ((nv (burst-string binding #\= #f)))
+		     (if (not (and (pair? nv)
+				   (pair? (cdr nv))
+				   (null? (cddr nv))))
+			 (error "Malformed cookie value:" string))
+		     (cons (intern (car nv)) (cdr nv))))
+		 (map string-trim (burst-string string #\; #f))))))
+
 (define (set-cookie message name value attrs)
   ;; Version 0 ("netscape") cookies.
   (add-header message