Re: Bug#400187: gettext: xgettext segfaults on .lisp files (fwd)

[Bruno Haible]

Martin Pitt wrote:
> That bug has already been closed and the patch applied, so that's not
> it (I just checked the package to verify this). So it must be
> something else.

But with this additional patch, it will work.

Alternatively - since your code appears to be Scheme, not Lisp, anyway -
you can use the xgettext option "-L Scheme" and profit from the 384698 bug fix.

Bruno


*** gettext-tools/src/x-lisp.c.bak      2006-04-03 13:17:56.000000000 +0200
--- gettext-tools/src/x-lisp.c  2006-11-28 00:57:21.000000000 +0100
***************
*** 1087,1093 ****
                    else
                      {
                        /* These are the argument positions.  */
!                       if (inner.type == t_string)
                          arglist_parser_remember (argparser, arg,
                                                   string_of_object (&inner),
                                                   inner_context,
--- 1087,1093 ----
                    else
                      {
                        /* These are the argument positions.  */
!                       if (argparser != NULL && inner.type == t_string)
                          arglist_parser_remember (argparser, arg,
                                                   string_of_object (&inner),
                                                   inner_context,