Support for catching exceptions and reworked lexical variables

2025-09-19 02:34:38 -07:00
parent 91f2ab8e0a
commit 2b7f9b2fd6
4 changed files with 393 additions and 180 deletions
@@ -88,7 +88,6 @@ int main(int argc, const char **argv) {
    REGISTER_STATIC_FUNCTION(Ftoplevel_exit_handler_function, "(e)", "");
    size_t pos = 0;
    WITH_PUSH_FRAME(Qtoplevel, Qnil, false, {
-        the_stack->hidden = true;
        LispVal *err_var = INTERN_STATIC("err-var");
        puthash(the_stack->handlers, Qt,
                // simply call the above function