Re: list building and argz_smob

[Paul Jarc]

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