From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Thien-Thi Nguyen <ttn@surf.glug.org>
Newsgroups: gmane.lisp.guile.user
Subject: Re: list building and argz_smob
Date: Mon, 09 Feb 2004 20:49:13 +0100
Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Message-ID: <E1AqHP7-0002Wg-00@surf.glug.org>
References: <Pine.GSO.4.58.0402090919280.18897@marcy.nas.nasa.gov>
	<m31xp4hz8o.fsf@multivac.cwru.edu>
Reply-To: ttn@glug.org
NNTP-Posting-Host: deer.gmane.org
X-Trace: sea.gmane.org 1076355663 30889 80.91.224.253 (9 Feb 2004 19:41:03 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 9 Feb 2004 19:41:03 +0000 (UTC)
Cc: guile-user@gnu.org
Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Mon Feb 09 20:40:49 2004
Return-path: <guile-user-bounces+guile-user=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AqHGy-0008O1-00
	for <guile-user@m.gmane.org>; Mon, 09 Feb 2004 20:40:48 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.24)
	id 1AqHGN-00016v-18
	for guile-user@m.gmane.org; Mon, 09 Feb 2004 14:40:11 -0500
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24)
	id 1AqHFK-0000r9-TP
	for guile-user@gnu.org; Mon, 09 Feb 2004 14:39:06 -0500
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24)
	id 1AqHEg-0000Xc-It
	for guile-user@gnu.org; Mon, 09 Feb 2004 14:38:57 -0500
Original-Received: from [151.42.175.234] (helo=surf.glug.org)
	by monty-python.gnu.org with esmtp (Exim 4.24) id 1AqHEf-0000XB-UD
	for guile-user@gnu.org; Mon, 09 Feb 2004 14:38:26 -0500
Original-Received: from ttn by surf.glug.org with local (Exim 3.35 #1 (Debian))
	id 1AqHP7-0002Wg-00; Mon, 09 Feb 2004 20:49:13 +0100
Original-To: bqueen@nas.nasa.gov
In-reply-to: <m31xp4hz8o.fsf@multivac.cwru.edu> (prj@po.cwru.edu)
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: General Guile related discussions  <guile-user.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/guile-user>
List-Post: <mailto:guile-user@gnu.org>
List-Help: <mailto:guile-user-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=subscribe>
Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.lisp.guile.user:2774
X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:2774

   From: prj@po.cwru.edu (Paul Jarc)
   Date: Mon, 09 Feb 2004 13:41:05 -0500

     (let ((nop-item (and cgi-http-cookie (cgi:cookie "nop_item"))))
       (if nop-item
	 (string-append "nop_item=\"" (frobnicate nop-item) "\"")
	 "no_nop_item"))

alternatively:

(or (and=> (and cgi-http-cookie (cgi:cookie "nop_item"))
           (lambda (nop-item)
             (string-append ...)))
    "no_nop_item")

this is similar to: (cond (EXP => (lambda (VAL) ...)) (else DEFAULT))
but slightly less verbose.  i think the code is close to beautiful now;
finishing touch would be to zonk `string-append' somehow.

thi


_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-user