From 3a683b93d080baa5b7f2c40f988a3eb48137badf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 21 Nov 2005 23:52:24 +0000
Subject: [PATCH] added missing namespace check in namespace-attach-module

svn: r1364
---
 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 7719f74cbb..67f56d7807 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -979,6 +979,8 @@ static Scheme_Object *namespace_attach_module(int argc, Scheme_Object *argv[])
 
   from_env = (Scheme_Env *)argv[0];
   if (argc > 2) {
+    if (!SCHEME_NAMESPACEP(argv[2]))
+      scheme_wrong_type("namespace-attach-module", "namespace", 2, argc, argv);
     to_env = (Scheme_Env *)argv[2];
     skip_notify = 1;
   } else