From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: prj@po.cwru.edu (Paul Jarc) Newsgroups: gmane.lisp.guile.user Subject: Re: list building and argz_smob Date: Mon, 09 Feb 2004 13:41:05 -0500 Organization: What did you have in mind? A short, blunt, human pyramid? Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1076352198 21570 80.91.224.253 (9 Feb 2004 18:43:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 9 Feb 2004 18:43:18 +0000 (UTC) Cc: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Mon Feb 09 19:43:09 2004 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 1AqGNA-0003fc-00 for ; Mon, 09 Feb 2004 19:43:08 +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 1AqGMm-0008KX-DL for guile-user@m.gmane.org; Mon, 09 Feb 2004 13:42:44 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AqGLn-0008Fz-CW for guile-user@gnu.org; Mon, 09 Feb 2004 13:41:43 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AqGLH-0007pw-5S for guile-user@gnu.org; Mon, 09 Feb 2004 13:41:42 -0500 Original-Received: from [129.22.104.47] (helo=mirapoint2.tis.cwru.edu) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AqGLG-0007os-Ab for guile-user@gnu.org; Mon, 09 Feb 2004 13:41:10 -0500 Original-Received: from multivac.cwru.edu (multivac.ITS.CWRU.Edu [129.22.114.26]) by mirapoint2.tis.cwru.edu (MOS 3.4.3-CR) with SMTP id AJN17545; Mon, 9 Feb 2004 13:41:06 -0500 (EST) Original-Received: (qmail 5579 invoked by uid 500); 9 Feb 2004 18:41:28 -0000 Original-To: Brian S McQueen In-Reply-To: (Brian S. McQueen's message of "Mon, 9 Feb 2004 10:07:07 -0800 (PST)") Mail-Copies-To: nobody Mail-Followup-To: Brian S McQueen , guile-user@gnu.org Original-Lines: 28 User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (gnu/linux) X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.user:2772 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:2772 Brian S McQueen wrote: > (if cgi-http-cookie > (let ((nop-item (cgi:cookie "nop_item"))) > (if nop-item > (string-append "nop_item=\"" (frobnicate nop-item) "\"") > "no_nop_item" )) > "no_nop_item") You might also like: (let ((nop-item (and cgi-http-cookie (cgi:cookie "nop_item")))) (if nop-item (string-append "nop_item=\"" (frobnicate nop-item) "\"") "no_nop_item")) > scm_map( > scm_c_define_gsubr("anon-printer", 1, 0, 0, private_printer), > argz_list_scm, SCM_EOL); I don't think you want to use scm_c_define_gsubr here. This should do it: scm_map(private_printer, argz_list_scm, SCM_EOL); scm_c_define_gsubr is needed only once, to create the Scheme-visible binding to the C function, and you might prefer using the SCM_DEFINE snarfing macro instead of explicitly calling scm_c_Define_gsubr. paul _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://mail.gnu.org/mailman/listinfo/guile-user