From b1009e7e5a88f42365cab6805f7102b767a5a6b5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 14 Mar 2008 11:44:36 +0000
Subject: [PATCH] fix planet path checking (PR 9249)

svn: r8970
---
 src/mzscheme/src/module.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index ce4dabe4b7..e273cc7972 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -1856,6 +1856,8 @@ int scheme_is_module_path(Scheme_Object *obj)
 
       for (; !SCHEME_NULLP(subs); subs = SCHEME_CDR(subs)) {
         a = SCHEME_CAR(subs);
+        if (!SCHEME_CHAR_STRINGP(a))
+          return 0;
         if (!ok_path_string(a, 0, 0, 0))
           return 0;
       }