From ed0be227cc3028feecaefda61b604eee1ac05d05 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sun, 27 Aug 2017 10:28:24 +0900
Subject: [PATCH] -iimage should be non-fatal for a missing image

---
 main.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/main.c b/main.c
index 7e5e0b96..b9eb04ab 100644
--- a/main.c
+++ b/main.c
@@ -433,12 +433,13 @@ sexp run_main (int argc, char **argv) {
       }
       ctx = sexp_load_image(arg, 0, heap_size, heap_max_size);
       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());
-        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;
     case 'd':
       if (! init_loaded++) {