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

-iimage should be non-fatal for a missing image

Browse source
This commit is contained in:
Alex Shinn 2017-08-27 10:28:24 +09:00
parent 7a94a31e72
commit ed0be227cc
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
main.c
View file

@ -433,12 +433,13 @@ sexp run_main (int argc, char **argv) {
} }
ctx = sexp_load_image(arg, 0, heap_size, heap_max_size); ctx = sexp_load_image(arg, 0, heap_size, heap_max_size);
if (!ctx || !sexp_contextp(ctx)) { if (!ctx || !sexp_contextp(ctx)) {
fprintf(stderr, "-:i <file>: couldn't open file for reading: %s\n", arg); fprintf(stderr, "-:i <file>: couldn't open image file for reading: %s\n", arg);
fprintf(stderr, " %s\n", sexp_load_image_err()); fprintf(stderr, " %s\n", sexp_load_image_err());
exit_failure(); ctx = NULL;
} else {
env = sexp_load_standard_params(ctx, sexp_context_env(ctx), nonblocking);
init_loaded++;
} }
env = sexp_load_standard_params(ctx, sexp_context_env(ctx), nonblocking);
init_loaded++;
break; break;
case 'd': case 'd':
if (! init_loaded++) { if (! init_loaded++) {