diff --git a/libguile/gen-scmconfig.c b/libguile/gen-scmconfig.c index e4465c05f..5f1351307 100644 --- a/libguile/gen-scmconfig.c +++ b/libguile/gen-scmconfig.c @@ -226,6 +226,12 @@ main (int argc, char *argv[]) pf ("#define GUILE_DEBUG_FREELIST 1 /* defined or undefined */\n"); else pf ("/* #undef GUILE_DEBUG_FREELIST */\n"); + + /*** SCM_ENABLE_DISCOURAGED (0 or 1) ***/ + pf ("\n"); + pf ("/* Set to 1 if you want to enable discouraged features. */\n"); + pf ("/* (value will be 0 or 1). */\n"); + pf ("#define SCM_ENABLE_DISCOURAGED %d\n", SCM_I_GSC_ENABLE_DISCOURAGED); /*** SCM_ENABLE_DEPRECATED (0 or 1) ***/ pf ("\n"); diff --git a/libguile/gen-scmconfig.h.in b/libguile/gen-scmconfig.h.in index f48288672..933aad375 100644 --- a/libguile/gen-scmconfig.h.in +++ b/libguile/gen-scmconfig.h.in @@ -8,6 +8,7 @@ #define SCM_I_GSC_GUILE_DEBUG @SCM_I_GSC_GUILE_DEBUG@ #define SCM_I_GSC_GUILE_DEBUG_FREELIST @SCM_I_GSC_GUILE_DEBUG_FREELIST@ +#define SCM_I_GSC_ENABLE_DISCOURAGED @SCM_I_GSC_ENABLE_DISCOURAGED@ #define SCM_I_GSC_ENABLE_DEPRECATED @SCM_I_GSC_ENABLE_DEPRECATED@ #define SCM_I_GSC_ENABLE_ELISP @SCM_I_GSC_ENABLE_ELISP@ #define SCM_I_GSC_HAVE_ARRAYS @SCM_I_GSC_HAVE_ARRAYS@