added missing namespace check in namespace-attach-module

svn: r1364
2005-11-21 23:52:24 +00:00 · 2005-11-21 23:52:24 +00:00 · 3a683b93d0
commit 3a683b93d0
parent a3c0f24fc9
1 changed files with 2 additions and 0 deletions
--- 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