From cc4feeca51e8b9f2883cfd0efb51092e6a014b4c Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Tue, 18 Jul 2000 07:02:57 +0000 Subject: * Deprecated function scm_call_catching_errors. * Updated root-smob initialization. --- libguile/root.c | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'libguile/root.c') diff --git a/libguile/root.c b/libguile/root.c index 5504f3544..e58db5304 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -399,12 +399,13 @@ 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 @@ -412,7 +413,6 @@ typedef long setjmp_type; #endif - SCM scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(), void *closure) { @@ -436,12 +436,16 @@ scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(), void *closure) return answer; } +#endif /* SCM_DEBUG_DEPRECATED == 0 */ + + void scm_init_root () { - scm_tc16_root = scm_make_smob_type_mfpe ("root", sizeof (struct scm_root_state), - mark_root, NULL, print_root, NULL); - + scm_tc16_root = scm_make_smob_type ("root", sizeof (struct scm_root_state)); + scm_set_smob_mark (scm_tc16_root, mark_root); + scm_set_smob_print (scm_tc16_root, print_root); + #include "libguile/root.x" } -- cgit v1.2.3