diff options
author | Andy Wingo <wingo@pobox.com> | 2011-08-31 09:34:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-08-31 09:34:54 +0200 |
commit | 8b66aa8f5496a515ca133d6d2c37a06f6ec1720d (patch) | |
tree | ca666d93b6c310c6d76f8a0f0051407b9c92ee40 /libguile/script.c | |
parent | 02620dd9a628ec40ec4324adca9b82cd0442d1d2 (diff) | |
parent | 0b4f77192da214690aa811d13bb6a7f6dd576445 (diff) | |
download | guile-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.c | 2 |
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 *)))) |