mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

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

Browse source 
Thanks to Arno Peters!
This commit is contained in:
Marius Vollmer 2002-11-17 10:35:49 +00:00
parent 80b28865d1
commit aeec5be115
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/strports.c
View file

@ -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);
}