summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-08-31 09:34:54 +0200
committerAndy Wingo <wingo@pobox.com>2011-08-31 09:34:54 +0200
commit8b66aa8f5496a515ca133d6d2c37a06f6ec1720d (patch)
treeca666d93b6c310c6d76f8a0f0051407b9c92ee40 /libguile/script.c
parent02620dd9a628ec40ec4324adca9b82cd0442d1d2 (diff)
parent0b4f77192da214690aa811d13bb6a7f6dd576445 (diff)
downloadguile-8b66aa8f5496a515ca133d6d2c37a06f6ec1720d.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts: libguile/bytevectors.c libguile/bytevectors.h libguile/objcodes.c libguile/r6rs-ports.c libguile/strings.c libguile/vm.c
Diffstat (limited to 'libguile/script.c')
-rw-r--r--libguile/script.c2
1 files changed, 2 insertions, 0 deletions
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 *))))