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

fix --disable-modules build

Browse source 
* configure.ac (HAVE_MODULES): Define HAVE_MODULES iff
  --enable-modules.

* libguile/deprecated.c (scm_dynamic_args_call)
* libguile/extensions.c (load_extension):
* libguile/init.c (scm_i_init_guile): Use HAVE_MODULES in a few places.
This commit is contained in:
Andy Wingo 2011-06-30 12:26:31 +02:00
parent 1fa542989a
commit 08969a2407
4 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/deprecated.c
View file

@ -1898,7 +1898,15 @@ SCM_DEFINE (scm_dynamic_args_call, "dynamic-args-call", 3, 0, 0,
char **argv;
if (scm_is_string (func))
func = scm_dynamic_func (func, dobj);
{
#if HAVE_MODULES
func = scm_dynamic_func (func, dobj);
#else
scm_misc_error ("dynamic-args-call",
"dynamic-func not available to resolve ~S",
scm_list_1 (func));
#endif
}
SCM_VALIDATE_POINTER (SCM_ARG1, func);
fptr = SCM_POINTER_VALUE (func);