From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Thamer Al-Harbash Newsgroups: gmane.lisp.guile.bugs Subject: Fix for guile-www/cgi.scm (cgi:make-cookie) Date: Thu, 28 Aug 2003 10:53:34 -0400 (EDT) Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Trace: sea.gmane.org 1062083596 9304 80.91.224.253 (28 Aug 2003 15:13:16 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 28 Aug 2003 15:13:16 +0000 (UTC) Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Thu Aug 28 17:13:14 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19sOSY-0000P3-00 for ; Thu, 28 Aug 2003 17:13:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 19sOQF-000730-Sn for guile-bugs@m.gmane.org; Thu, 28 Aug 2003 11:10:51 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 19sOBh-0001Uq-RP for bug-guile@gnu.org; Thu, 28 Aug 2003 10:55:49 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 19sOB4-0000p9-NT for bug-guile@gnu.org; Thu, 28 Aug 2003 10:55:14 -0400 Original-Received: from [216.254.175.50] (helo=helena.whitefang.com) by monty-python.gnu.org with smtp (Exim 4.22) id 19sO9D-0007c5-St for bug-guile@gnu.org; Thu, 28 Aug 2003 10:53:16 -0400 Original-Received: (qmail 84134 invoked from network); 28 Aug 2003 14:53:34 -0000 Original-Received: from helena.whitefang.com (216.254.175.50) by 0 with SMTP; 28 Aug 2003 14:53:34 -0000 X-X-Sender: shadows@helena.whitefang.com Original-To: bug-guile@gnu.org X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GUILE, GNU's Ubiquitous Extension Language List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.bugs:919 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:919 This cgi::make-cookie breaks under guile-1.6 because it's using a #&key and the (bound?) macro which seem to be no longer available or depreciated. Please accept my patch below which fixes the problem: Index: cgi.scm =================================================================== RCS file: /cvsroot/guile/guile/guile-www/cgi.scm,v retrieving revision 1.6 diff -c -r1.6 cgi.scm *** cgi.scm 27 Apr 2002 01:49:47 -0000 1.6 --- cgi.scm 28 Aug 2003 14:49:36 -0000 *************** *** 173,190 **** (and cookie-values (car cookie-values)))) (define-public cgi:make-cookie ! (lambda* (name value #&key path domain expires secure) (format #f "Set-Cookie: ~A=~A~A~A~A~A" name value ! (if (bound? path) (format #f "; path=~A" path) "") ! (if (bound? domain) (format #f "; domain=~A" domain) "") ! (if (bound? expires) (format #f "; expires=~A" expires) "") ! (if (and (bound? secure) secure) "; secure" "")))) - ;;; Internal functions. --- 173,189 ---- (and cookie-values (car cookie-values)))) (define-public cgi:make-cookie ! (lambda* (name value #:key path domain expires secure) (format #f "Set-Cookie: ~A=~A~A~A~A~A" name value ! (if path (format #f "; path=~A" path) "") ! (if domain (format #f "; domain=~A" domain) "") ! (if expires (format #f "; expires=~A" expires) "") ! (if secure "; secure" "")))) ;;; Internal functions. _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile