summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
commitdee01b012cd5179b70a2e361ee08c364ed9f3314 (patch)
tree342478de9cb5237437a734aa88b7c9fe26533845 /libguile/root.c
parentb29058ffee392969b448f8157afaf370c17a736c (diff)
downloadguile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/root.c')
-rw-r--r--libguile/root.c40
1 files changed, 0 insertions, 40 deletions
diff --git a/libguile/root.c b/libguile/root.c
index 6ff24ca49..26a914948 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -382,46 +382,6 @@ scm_apply_with_dynamic_root (SCM proc, SCM a1, SCM args, SCM handler)
-#if (SCM_DEBUG_DEPRECATED == 0)
-
-/* Call thunk(closure) underneath a top-level error handler.
- * If an error occurs, pass the exitval through err_filter and return it.
- * If no error occurs, return the value of thunk.
- */
-
-#ifdef _UNICOS
-typedef int setjmp_type;
-#else
-typedef long setjmp_type;
-#endif
-
-
-SCM
-scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(), void *closure)
-{
- SCM answer;
- setjmp_type i;
-#ifdef DEBUG_EXTENSIONS
- SCM_DFRAME (scm_rootcont) = scm_last_debug_frame;
-#endif
- i = setjmp (SCM_JMPBUF (scm_rootcont));
- scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
- if (!i)
- {
- scm_gc_heap_lock = 0;
- answer = thunk (closure);
- }
- else
- {
- scm_gc_heap_lock = 1;
- answer = err_filter (scm_exitval, closure);
- }
- return answer;
-}
-
-#endif /* SCM_DEBUG_DEPRECATED == 0 */
-
-
void
scm_init_root ()
{