Handle NULL returns from Guile.

This commit is contained in:
Paul Smith 2012-01-18 13:31:11 +00:00
parent 9fb4cdeedb
commit 89f7058b99
2 changed files with 9 additions and 2 deletions

View file

@ -1,3 +1,7 @@
2012-01-17 Paul Smith <psmith@gnu.org>
* guile.c (func_guile): Handle NULL returns from Guile.
2012-01-16 Paul Smith <psmith@gnu.org>
* make.h (PATH_SEPARATOR_CHAR): Allow resetting for crosscompiling

View file

@ -92,8 +92,11 @@ func_guile (char *o, char **argv, const char *funcname UNUSED)
if (argv[0] && argv[0][0] != '\0')
{
char *str = scm_with_guile (internal_guile_eval, argv[0]);
o = variable_buffer_output (o, str, strlen (str));
free (str);
if (str)
{
o = variable_buffer_output (o, str, strlen (str));
free (str);
}
}
return o;