diff options
Diffstat (limited to 'libguile/error.c')
-rw-r--r-- | libguile/error.c | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/libguile/error.c b/libguile/error.c index d8fcc7aa8..88ba47c7d 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -184,33 +184,6 @@ scm_syserror_msg (const char *subr, const char *message, SCM args, int eno) scm_cons (SCM_MAKINUM (eno), SCM_EOL)); } - -#if (SCM_DEBUG_DEPRECATED == 0) - -/* scm_sysmissing is no longer used in libguile. it can probably be - removed after a release or two. there's a comment in NEWS about it - (2000-01-09). */ -void -scm_sysmissing (const char *subr) -{ -#ifdef ENOSYS - scm_error (scm_system_error_key, - subr, - "~A", - scm_cons (scm_makfrom0str (strerror (ENOSYS)), SCM_EOL), - scm_cons (SCM_MAKINUM (ENOSYS), SCM_EOL)); -#else - scm_error (scm_system_error_key, - subr, - "Missing function", - SCM_BOOL_F, - scm_cons (SCM_MAKINUM (0), SCM_EOL)); -#endif -} - -#endif /* SCM_DEBUG_DEPRECATED == 0 */ - - SCM_SYMBOL (scm_num_overflow_key, "numerical-overflow"); void scm_num_overflow (const char *subr) |