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

(scm_c_export): Do nothing when the first argument is

Browse source 
already the terminating NULL.  Thanks to Han-Wen Nienhuys!
This commit is contained in:
Marius Vollmer 2001-11-20 22:45:24 +00:00
parent 19a35d19d9
commit eb880cef29
1 changed files with 30 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/modules.c
View file

@ -176,9 +176,25 @@ scm_c_use_module (const char *name)
static SCM module_export_x_var; static SCM module_export_x_var;
/*
@code{scm_c_export}(@var{name-list})
@code{scm_c_export} exports the named bindings from the current
module, making them visible to users of the module. This function
takes a list of string arguments, terminated by NULL, e.g.
@example
scm_c_export ("add-double-record", "bamboozle-money", NULL);
@end example
*/
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);
@ -194,6 +210,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 */