[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: list building and argz_smob
From: |
Paul Jarc |
Subject: |
Re: list building and argz_smob |
Date: |
Mon, 09 Feb 2004 13:41:05 -0500 |
User-agent: |
Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (gnu/linux) |
Brian S McQueen <address@hidden> 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