From 1572c93478c55ff14738a4b6f1b38dc41878a816 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 2 Sep 2014 19:46:18 -0700 Subject: * eval.c (eval_init): Update registration of lisp-parse and read to account for new parameter. * lib.c (syntax_error_s): New symbol_variable. (obj_init): New symbol variable initialized. * lib.h (syntax_error_s): Declared. * parser.h (lisp_parse): Declaration updated. * parser.l (lisp_parse): Takes third parameter. * txr.1: Third parameter of read described. * txr.c (txr_main): Pass colon_k to third parameter of lisp_parse to obtain exception throwing behavior. * unwind.c (uw_init): Register syntax-error as subtype of error. --- lib.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 63d3fbd5..8ec7ddb9 100644 --- a/lib.h +++ b/lib.h @@ -367,7 +367,7 @@ extern val try_s, catch_s, finally_s, throw_s, defex_s, deffilter_s; extern val eof_s, eol_s, assert_s; extern val error_s, type_error_s, internal_error_s; extern val numeric_error_s, range_error_s; -extern val query_error_s, file_error_s, process_error_s; +extern val query_error_s, file_error_s, process_error_s, syntax_error_s; extern val gensym_counter_s; #define gensym_counter (deref(lookup_var_l(nil, gensym_counter_s))) -- cgit v1.2.3