diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
commit | dee01b012cd5179b70a2e361ee08c364ed9f3314 (patch) | |
tree | 342478de9cb5237437a734aa88b7c9fe26533845 /libguile/root.c | |
parent | b29058ffee392969b448f8157afaf370c17a736c (diff) | |
download | guile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz |
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/root.c')
-rw-r--r-- | libguile/root.c | 40 |
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 () { |