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

(scm_c_export): Call va_end after collecting the symbols.

Browse source
This commit is contained in:
Marius Vollmer 2001-11-13 22:15:42 +00:00
parent adb8c0f235
commit e713cd28c8
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/modules.c
View file

@ -191,6 +191,7 @@ scm_c_export (const char *name, ...)
*tail = scm_cons (scm_str2symbol (n), SCM_EOL); *tail = scm_cons (scm_str2symbol (n), SCM_EOL);
tail = SCM_CDRLOC (*tail); tail = SCM_CDRLOC (*tail);
} }
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);
} }