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

@ -186,6 +186,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);
SCM *tail = SCM_CDRLOC (names); SCM *tail = SCM_CDRLOC (names);
@ -201,6 +203,7 @@ scm_c_export (const char *name, ...)
va_end (ap); va_end (ap);
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 */