Adding find-frame function.

* unwind.c (uw_find_frame): New function.
(uw_late_init): Registered find-frame intrinsic.

* unwind.h (uw_find_frame): Declared.

* lib.h (default_arg_strict): New inline function.
Will not replace nil value with default.

* txr.1: Documented find-frame.

1 files changed, 1 insertions, 0 deletions

diff --git a/unwind.h b/unwind.h
index 3dc9c387..97d1026a 100644
--- a/unwind.h
+++ b/unwind.h
@@ -127,6 +127,7 @@ void uw_pop_until(uw_frame_t *);
 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_invoke_catch(val catch_frame, val sym, struct args *);
 void uw_init(void);
 void uw_late_init(void);