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

* Renamed GUILE_WARN_DEPRECATED_DEFAULT to SCM_WARN_DEPRECATED_DEFAULT.

Browse source
This commit is contained in:
Dirk Herrmann 2001-05-16 07:20:53 +00:00
parent 78930a69ee
commit 887dfa7d56
5 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
2001-05-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* acconfig.h, configure.in: Renamed
GUILE_WARN_DEPRECATED_DEFAULT to SCM_WARN_DEPRECATED_DEFAULT.
2001-05-15 Marius Vollmer <mvo@zagadka.ping.de>
* acinclude.m4: Removed copy of "libtool.m4".

2
acconfig.h
View file

@ -48,7 +48,7 @@
#undef SCM_DEBUG_DEPRECATED
/* Define this to control the default warning level for deprecated features */
#undef GUILE_WARN_DEPRECATED_DEFAULT
#undef SCM_WARN_DEPRECATED_DEFAULT
/* Define these two if you want support for debugging of Scheme
programs. */

2
configure.in
View file

@ -110,7 +110,7 @@ else
warn_default=$enable_deprecated
fi
AC_DEFINE(SCM_DEBUG_DEPRECATED, 0)
AC_DEFINE_UNQUOTED(GUILE_WARN_DEPRECATED_DEFAULT, "$warn_default")
AC_DEFINE_UNQUOTED(SCM_WARN_DEPRECATED_DEFAULT, "$warn_default")
fi
dnl The --disable-debug used to control these two. But now they are

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-05-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* deprecation.c (scm_init_deprecation): Renamed
GUILE_WARN_DEPRECATED_DEFAULT to SCM_WARN_DEPRECATED_DEFAULT.
2001-05-16 Marius Vollmer <mvo@zagadka.ping.de>
* Makefile.am (cpp_sig_symbols.c, cpp_err_symbols.c): Make

2
libguile/deprecation.c
View file

@ -137,7 +137,7 @@ scm_init_deprecation ()
#if SCM_DEBUG_DEPRECATED == 0
const char *level = getenv ("GUILE_WARN_DEPRECATED");
if (level == NULL)
level = GUILE_WARN_DEPRECATED_DEFAULT;
level = SCM_WARN_DEPRECATED_DEFAULT;
if (!strcmp (level, "detailed"))
issued_msgs = scm_permanent_object (scm_c_make_hash_table (17));
else if (!strcmp (level, "no"))