New function: find-frames.

* unwind.c (uw_find_frames_impl): New static function, made
from uw_find_frame.
(uw_find_frame): Reduced to wrapper around
uw_find_frames_impl.
(uw_find_frames): New function.
(uw_late_init): Register find-frames intrinsic.

* unwind.h (uw_find_frames): Declared.

* txr.1: Documented.

1 files changed, 10 insertions, 1 deletions

diff --git a/txr.1 b/txr.1
index 73129a1a..3409fc91 100644
--- a/txr.1
+++ b/txr.1
@@ -33019,9 +33019,10 @@ structure may be passed as an argument to the
 .code invoke-catch
 function.
 
-.coNP Function @ find-frame
+.coNP Functions @ find-frame and @ find-frames
 .synb
 .mets (find-frame >> [ exception-symbol <> [ frame-type ]])
+.mets (find-frames >> [ exception-symbol <> [ frame-type ]])
 .syne
 .desc
 The
@@ -33070,6 +33071,14 @@ is called with no arguments at all it finds the innermost catch frame,
 if any exists, or else returns
 .codn nil .
 
+The
+.code find-frames
+function is similar to
+.code find-frame
+except that it returns all matching frames, ordered from the inner-most nesting
+level to the outer-most nesting. If called with no arguments, it returns a
+list of the catch frames.
+
 .coNP Function @ invoke-catch
 .synb
 .mets (invoke-catch < catch-frame < symbol << argument *)