summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/error.c')
-rw-r--r--libguile/error.c27
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)