From 2032ec910fc50ca27151f27e3e34b3994f9c4d6c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 18 Apr 2011 17:47:29 -0600
Subject: [PATCH] better error message for bad command-line argument

---
 src/racket/cmdline.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/racket/cmdline.inc b/src/racket/cmdline.inc
index 4bccec461c..0bb469b694 100644
--- a/src/racket/cmdline.inc
+++ b/src/racket/cmdline.inc
@@ -308,6 +308,11 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
             a[0] = scheme_make_pair(scheme_intern_symbol(name),
                                     scheme_make_pair(scheme_make_utf8_string(fa->evals_and_loads[i]),
                                                      scheme_make_null()));
+            if (!scheme_is_module_path(a[0])) {
+              scheme_signal_error("require: bad module path: %V derived from command-line argument: %s",
+                                  a[0],
+                                  fa->evals_and_loads[i]);
+            }
             if (!did_config)
               configure_environment(a[0]);
             scheme_apply(nsreq, 1, a);