From 89f7058b99c24607dd371681435cc41e51fedf23 Mon Sep 17 00:00:00 2001
From: Paul Smith <psmith@gnu.org>
Date: Wed, 18 Jan 2012 13:31:11 +0000
Subject: Handle NULL returns from Guile.

---
 guile.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'guile.c')

diff --git a/guile.c b/guile.c
index c32821a..2a35e8b 100644
--- a/guile.c
+++ b/guile.c
@@ -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;
-- 
cgit v1.2.3