From 5ad4e054e0391235c503dc7d8eb4092a42ec0564 Mon Sep 17 00:00:00 2001
From: Alexander Rosenberg <zanderpkg@pm.me>
Date: Wed, 24 Sep 2025 22:27:43 -0700
Subject: [PATCH] Fix some read errors

---
 src/kernel.sl | 3 +++
 src/read.c    | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/src/kernel.sl b/src/kernel.sl
index 0319fd7..4989cee 100644
--- a/src/kernel.sl
+++ b/src/kernel.sl
@@ -444,3 +444,6 @@
     (t (print obj)))
   (when newline
     (println)))
+
+(breakpoint)
+'
diff --git a/src/read.c b/src/read.c
index 6ddc18b..dd94f1b 100644
--- a/src/read.c
+++ b/src/read.c
@@ -486,6 +486,9 @@ static LispVal *read_internal(struct ReadState *state) {
     case '\'': {
         popc(state); // '
         LispVal *tail = read_internal(state);
+        if (!tail) {
+            READ_ERROR(state, 1, "quote not quoting anything");
+        }
         LispVal *res = Fpair(Qquote, Fpair(tail, Qnil));
         refcount_unref(tail);
         refcount_unref(TAIL(res));