From 485858fa72bdef62f9d8fbc4b687049103f76144 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 Jan 2010 22:35:20 +0000
Subject: [PATCH] fix bytecode validator to reject symbolic requires in modules

svn: r17487
---
 src/mzscheme/src/module.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 4695bfec99..0849855f10 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -9762,7 +9762,7 @@ static int check_requires_ok(Scheme_Object *l)
   Scheme_Object *x;
   while (!SCHEME_NULLP(l)) {
     x = SCHEME_CAR(l);
-    if (!SCHEME_SYMBOLP(x) && !SAME_TYPE(SCHEME_TYPE(x), scheme_module_index_type))
+    if (!SAME_TYPE(SCHEME_TYPE(x), scheme_module_index_type))
       return 0;
     l = SCHEME_CDR(l);
   }