* throw.c (scm_internal_lazy_catch): New function.

[bpt/guile.git] / libguile / throw.h

diff --git a/libguile/throw.h b/libguile/throw.h
index 26c0d9a..be971a5 100644 (file)
--- a/libguile/throw.h
+++ b/libguile/throw.h
@@ -58,6 +58,12 @@ extern SCM scm_internal_catch SCM_P ((SCM tag,
                                      scm_catch_handler_t handler,
                                      void *handler_data));
 
+extern SCM scm_internal_lazy_catch SCM_P ((SCM tag,
+                                          scm_catch_body_t body,
+                                          void *body_data,
+                                          scm_catch_handler_t handler,
+                                          void *handler_data));
+
 /* The first argument to scm_body_thunk should be a pointer to one of
    these.  See the implementation of catch in throw.c.  */
 struct scm_body_thunk_data