(scm_eval_string_in_module): Validate second arg to be a module.

Thanks to Arno Peters!

diff --git a/libguile/strports.c b/libguile/strports.c
index 107fedd..419a2df 100644 (file)
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -481,6 +481,8 @@ SCM_DEFINE (scm_eval_string_in_module, "eval-string", 1, 1, 0,
                            FUNC_NAME);
   if (SCM_UNBNDP (module))
     module = scm_current_module ();
+  else
+    SCM_VALIDATE_MODULE (2, module);
   return scm_c_call_with_current_module (module,
                                         inner_eval_string, (void *)port);
 }