From ecc500b1b343a8fc087236cc0b22a25322b6852e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 16 Feb 2012 05:51:49 -0800 Subject: TXR Lisp gets exception handling. * eval.c (op_catch, expand_catch_clause, expand_catch): New static functions. (expand): Handle catch operator. (eval_init): Added catch operator to op_table, and registered new functions throw, throwf and error. * txr.1: Documented catch operator and created stub section for throw, throwf and error. * txr.vim: Updated. * unwind.c (uw_throwfv, uw_errorfv): New functions. * unwind.h (uw_throwfv, uw_errorfv): Declared. --- txr.vim | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'txr.vim') diff --git a/txr.vim b/txr.vim index e3effa0b..f20c58b5 100644 --- a/txr.vim +++ b/txr.vim @@ -26,7 +26,7 @@ syn keyword txr_keyword contained define try catch finally throw syn keyword txr_keyword contained defex throw deffilter filter eof eol do syn keyword txl_keyword contained progn prog1 let syn let* lambda call fun -syn keyword txl_keyword contained cond if and or dwim op +syn keyword txl_keyword contained cond if and or dwim op catch syn keyword txl_keyword contained defvar defun inc dec set push pop flip syn keyword txl_keyword contained for for* dohash unwind-protect block syn keyword txl_keyword contained return return-from gen delay @@ -81,6 +81,7 @@ syn keyword txl_keyword contained make-random-state random-state-p syn keyword txl_keyword contained random-fixnum random syn keyword txl_keyword contained range range* generate repeat force +syn keyword txl_keyword contained throw throwf error syn match txr_hash "#" contained syn match txr_quote "[,']" contained -- cgit v1.2.3