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

* modules.c (scm_export): new function

Browse source 
* gc-card.c: add a note about malloc()/free() overhead.
This commit is contained in:
Han-Wen Nienhuys 2002-12-10 13:26:25 +00:00
parent a12611c3e7
commit 06e80f59f9
4 changed files with 44 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/modules.c
View file

@ -115,6 +115,10 @@ scm_c_call_with_current_module (SCM module,
return scm_c_with_fluid (the_module, module, func, data);
}
/*
convert "A B C" to scheme list (A B C)
*/
static SCM
convert_module_name (const char *name)
{
@ -177,6 +181,16 @@ scm_c_use_module (const char *name)
static SCM module_export_x_var;
/*
TODO: should export this function? --hwn.
*/
static SCM
scm_export (SCM module, SCM namelist)
{
scm_call_2 (SCM_VARIABLE_REF (module_export_x_var),
module, namelist);
}
/*
@code{scm_c_export}(@var{name-list})
@ -189,7 +203,6 @@ static SCM module_export_x_var;
scm_c_export ("add-double-record", "bamboozle-money", NULL);
@end example
*/
void
scm_c_export (const char *name, ...)
{
@ -208,11 +221,11 @@ scm_c_export (const char *name, ...)
tail = SCM_CDRLOC (*tail);
}
va_end (ap);
scm_call_2 (SCM_VARIABLE_REF (module_export_x_var),
scm_current_module (), names);
scm_export (scm_current_module(), names);
}
}
/* Environments */
SCM