mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

(scm_c_export): Do nothing when the first argument is already the

Browse source 
terminating NULL.  Thanks to Han-Wen Nienhuys!
This commit is contained in:
Marius Vollmer 2001-11-20 22:52:46 +00:00
parent 782f169b37
commit 3f831f22ae
1 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/modules.c
View file

@ -185,6 +185,8 @@ static SCM module_export_x_var;
void void
scm_c_export (const char *name, ...) scm_c_export (const char *name, ...)
{
if (name)
{ {
va_list ap; va_list ap;
SCM names = scm_cons (scm_str2symbol (name), SCM_EOL); SCM names = scm_cons (scm_str2symbol (name), SCM_EOL);
@ -202,6 +204,7 @@ scm_c_export (const char *name, ...)
scm_call_2 (SCM_VARIABLE_REF (module_export_x_var), scm_call_2 (SCM_VARIABLE_REF (module_export_x_var),
scm_current_module (), names); scm_current_module (), names);
} }
}
/* Environments */ /* Environments */