diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-10-15 23:02:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-10-15 23:02:13 -0700 |
| commit | c9e0e299e93a5c4f9caf9df31aed18038650a7be (patch) | |
| tree | 660df76e0d361c128b3f16410ffdd7580fd18797 /lib.h | |
| parent | 2956fe44fc0e17c69f3caec5a56397dd74765772 (diff) | |
| download | txr-c9e0e299e93a5c4f9caf9df31aed18038650a7be.tar.gz txr-c9e0e299e93a5c4f9caf9df31aed18038650a7be.tar.bz2 txr-c9e0e299e93a5c4f9caf9df31aed18038650a7be.zip | |
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.
Diffstat (limited to 'lib.h')
| -rw-r--r-- | lib.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -968,6 +968,11 @@ INLINE val default_bool_arg(val arg) return if3(missingp(arg), nil, arg); } +INLINE val default_arg_strict(val arg, val dfl) +{ + return if3(missingp(arg), dfl, arg); +} + #define list_collect_decl(OUT, PTAIL) \ val OUT = nil; \ loc PTAIL = mkcloc(OUT) |