Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Prevent segfault when '-t' option is given without argument

Browse source
This commit is contained in:
Marc Nieper-Wißkirchen 2016-06-06 08:57:45 +02:00
parent d975aac7ed
commit fb14733921
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
main.c
View file

@ -466,6 +466,7 @@ sexp run_main (int argc, char **argv) {
load_init(1); load_init(1);
arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2); arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2);
#if SEXP_USE_MODULES #if SEXP_USE_MODULES
check_nonull_arg('t', arg);
suffix = strrchr(arg, '.'); suffix = strrchr(arg, '.');
sym = sexp_intern(ctx, suffix + 1, -1); sym = sexp_intern(ctx, suffix + 1, -1);
*(char*)suffix = '\0'; *(char*)suffix = '\0';