X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/7e2fd4e7f53c281307efd12b80df46346002a33d..6570cfdfd83b0d792f6ff01594915f3ec1336b16:/libguile/throw.h

diff --git a/libguile/throw.h b/libguile/throw.h
index 531aadd33..e2da73170 100644
--- a/libguile/throw.h
+++ b/libguile/throw.h
@@ -85,6 +85,10 @@ SCM_API SCM scm_ithrow (SCM key, SCM args, int no_return);
    handlers.  */
 SCM_API void scm_report_stack_overflow (void);
 
+/* This throws to the `out-of-memory' key, without running pre-unwind
+   handlers.  */
+SCM_API void scm_report_out_of_memory (void);
+
 SCM_API SCM scm_throw (SCM key, SCM args);
 SCM_INTERNAL void scm_init_throw (void);