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, 1 insertions, 0 deletions

diff --git a/unwind.h b/unwind.h
index ea8af20b..4ca52228 100644
--- a/unwind.h
+++ b/unwind.h
@@ -142,6 +142,7 @@ uw_frame_t *uw_current_frame(void);
 uw_frame_t *uw_current_exit_point(void);
 val uw_get_frames(void);
 val uw_find_frame(val extype, val frtype);
+val uw_find_frames(val extype, val frtype);
 val uw_invoke_catch(val catch_frame, val sym, struct args *);
 val uw_muffle_warning(val exc, struct args *);
 val uw_capture_cont(val tag, val fun, val ctx_form);