summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-02 16:10:17 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-02 16:10:17 +0000
commitdee91fb9d44138d34ee67b265923951f7206d3c6 (patch)
tree6297c1e9bb29e20920e5e52550b8e47d7273dab0
parentba05058392b57f69d7890d99bce57ca7df64e21e (diff)
downloadguile-dee91fb9d44138d34ee67b265923951f7206d3c6.tar.gz
* gen-scmconfig.h.in (SCM_I_GSC_ENABLE_DISCOURAGED): New.
* gen-scmconfig.c (SCM_ENABLE_DISCOURAGED): Emit based on above.
-rw-r--r--libguile/gen-scmconfig.c6
-rw-r--r--libguile/gen-scmconfig.h.in1
2 files changed, 7 insertions, 0 deletions
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@