Handle error for ./lisp (main.c).

tadd · Jul 21, 2024 · cb54fa2 · cb54fa2
1 parent 8f13503
commit cb54fa2
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/main.c b/main.c
@@ -33,8 +33,11 @@ static FILE *parse_opt(int argc, char *const *argv)
 int main(int argc, char **argv)
 {
     FILE *in = parse_opt(argc, argv);
-    print(load(in));
-    printf("\n");
+    Value v = load(in);
     fclose(in);
+    if (v == Qundef)
+        error("%s", error_message());
+    print(v);
+    printf("\n");
     return 0;
 }