mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* Deprecated function scm_call_catching_errors.

Browse source 
* Updated root-smob initialization.
This commit is contained in:
Dirk Herrmann 2000-07-18 07:02:57 +00:00
parent 007e7c3588
commit cc4feeca51
5 changed files with 31 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2000-07-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* root.[ch] (scm_call_catching_errors): Deprecated.
* root.c (scm_init_root): Initialize the root smob type using the
standard initialization functions.
2000-07-17 Marius Vollmer <mvo@zagadka.ping.de>
* eval.c (unmemocopy): Don't rely on V being a list of at least

14
libguile/root.c
View file

@ -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"
}

10
libguile/root.h
View file

@ -161,9 +161,17 @@ extern SCM scm_internal_cwdr (scm_catch_body_t body,
extern SCM scm_call_with_dynamic_root (SCM thunk, SCM handler);
extern SCM scm_dynamic_root (void);
extern SCM scm_apply_with_dynamic_root (SCM proc, SCM a1, SCM args, SCM handler);
extern SCM scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(), void * closure);
extern void scm_init_root (void);
#if (SCM_DEBUG_DEPRECATED == 0)
/* Use the catch functions from throw.[ch] instead of: */
extern SCM scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(), void * closure);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
#endif /* ROOTH */
/*