From 52de854b25c97223445feaecb6753439eef74042 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 20 Jul 2014 09:25:47 +0900
Subject: [PATCH] Better error message when trying to use -R on an unknown
 module.

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

diff --git a/main.c b/main.c
index acd94031..c7c059e0 100644
--- a/main.c
+++ b/main.c
@@ -590,6 +590,11 @@ void run_main (int argc, char **argv) {
         env = check_exception(ctx, sexp_eval_string(ctx, impmod, -1, sexp_meta_env(ctx)));
         if (sexp_vectorp(env)) env = sexp_vector_ref(env, SEXP_ONE);
         free(impmod);
+        check_exception(ctx, env);
+        if (!sexp_envp(env)) {
+          fprintf(stderr, "couldn't find module: %s\n", main_module);
+          exit_failure();
+        }
       } else
 #endif
       if (i < argc && !no_script) {   /* script usage */