-
- SCM_STRUCT_DATA(gh_car(s))[scm_module_index_obarray] = (long unsigned int) tab;
- }
-}
-
-#define FUNC_NAME __FUNCTION__
-
-SCM
-define_one_var (void * closure, SCM key, SCM val, SCM result)
-{
- SCM dest = (SCM) closure;
- scm_module_define (dest, key, scm_variable_ref (val));
- return SCM_EOL;
-}