Exception handling

2026-09-03 09:34:54 -07:00
parent 07060a17fe
commit dc313fafa0
12 changed files with 209 additions and 96 deletions
@@ -341,6 +341,7 @@ DECLARE_FUNCTION(quote, (LispVal * form));

 // TODO probably move these to another file
 LispVal *make_vector(LispVal **data, size_t length, bool take);
+DECLARE_FUNCTION(vector, (LispVal * data));
 DECLARE_FUNCTION(make_symbol, (LispVal * name));
 DECLARE_FUNCTION(intern, (LispVal * name));
 DECLARE_FUNCTION(symbol_value, (LispVal * sym));
@@ -402,7 +403,7 @@ DECLARE_SYMBOL(float);
 // cons declared in list.h
 DECLARE_SYMBOL(string);
 DECLARE_SYMBOL(symbol);
-DECLARE_SYMBOL(vector);
+// vector defined above
 DECLARE_SYMBOL(hash_table);
 DECLARE_SYMBOL(function);

@@ -417,8 +418,7 @@ DECLARE_FUNCTION(condition_printer, (LispVal * val));
 DECLARE_SYMBOL(kw_success);

 DECLARE_FUNCTION(signal, (LispVal * name, LispVal *data));
-DECLARE_FUNCTION(condition_case,
-                 (LispVal * var, LispVal *form, LispVal *handlers));
+DECLARE_FUNCTION(handler_bind, (LispVal * thunk, LispVal *handlers));
 DECLARE_FUNCTION(error, (LispVal * data));
 MAKE_CONDITION_CLASS(error);