From 06b285ac2c60fd5f8dd5eee24c794d7ef21fee46 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 15 Jan 2017 15:11:25 -0800 Subject: Functions for error reporting out of macros. * eval.c (eval_init): Register sys:ctx-form and sys:ctx-name intrinsics. * lisplib.c (error_set_entries, error_instantiate): New static functions. (lisplib_init): Register autoloading of error.tl via new functions. * share/txr/stdlib/error.tl: New file. * struct.c (make_struct_type): Purge deferred warnings. * unwind.c (uw_late_init): Register purge-deferred-warning intrinsic. --- struct.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'struct.c') diff --git a/struct.c b/struct.c index bfa6acbd..7517b8dd 100644 --- a/struct.c +++ b/struct.c @@ -349,6 +349,8 @@ val make_struct_type(val name, val super, call_stinitfun_chain(st, stype); + uw_purge_deferred_warning(cons(struct_type_s, name)); + return stype; } } -- cgit v1.2.3