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

* Re-introduced some symbols as deprecated.

Browse source
This commit is contained in:
Dirk Herrmann 2000-06-30 17:37:26 +00:00
parent 38ec519cbf
commit b63a956dc5
5 changed files with 58 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/error.c
View file

@ -316,6 +316,16 @@ scm_wta (SCM arg, const char *pos, const char *s_subr)
scm_wrong_type_arg (s_subr, 7, arg);
case SCM_WNA:
scm_wrong_num_args (arg);
#if (SCM_DEBUG_DEPRECATED == 0)
case SCM_OUTOFRANGE:
scm_out_of_range (s_subr, arg);
case SCM_NALLOC:
scm_memory_error (s_subr);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
default:
/* this shouldn't happen. */
scm_misc_error (s_subr, "Unknown error", SCM_EOL);