More exception stuff

2026-09-03 11:33:44 -07:00
parent dc313fafa0
commit 2533b0db7d
15 changed files with 200 additions and 76 deletions
@@ -37,8 +37,12 @@ int main(int argc, const char **argv) {
                LispVal *args = FOURTH(frame);
                fprintf(stderr, " %c ", evaled ? '-' : '*');
                Fprinc(name, Qerror_write_byte);
-                Fprinc(args, Qerror_write_byte);
-                fputc('\n', stderr);
+                if (NILP(args)) {
+                    fprintf(stderr, "()\n");
+                } else {
+                    Fprinc(args, Qerror_write_byte);
+                    fputc('\n', stderr);
+                }
            }
            CLEAR_EXCEPTION();
            had_toplevel_error = true;