From 2700aa43f21d927fb208b6779a07c8f63d91c27e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 28 Jul 2011 19:12:07 +0200
Subject: [PATCH] fix a leak on startup from script.c

* libguile/script.c (scm_get_meta_args): Free nargv.  Thanks to
  http://article.gmane.org/gmane.lisp.guile.devel/12685.  We leak narg
  though.
---
 libguile/script.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libguile/script.c b/libguile/script.c
index 83dcdd5b9..5e0685a56 100644
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -317,6 +317,7 @@ scm_get_meta_args (int argc, char **argv)
 	    switch (getc (f))
 	      {
 	      case EOF:
+                free (nargv);
 		return 0L;
 	      default:
 		continue;
@@ -324,6 +325,7 @@ scm_get_meta_args (int argc, char **argv)
 		goto found_args;
 	      }
 	found_args:
+          /* FIXME: we leak the result of calling script_read_arg.  */
 	  while ((narg = script_read_arg (f)))
 	    if (!(nargv = (char **) realloc (nargv,
 					     (1 + ++nargc) * sizeof (char *))))