From 94bf3cb9f356a3823d3e07f1d78769f082e9177b Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Thu, 8 Dec 2022 09:52:01 +0200
Subject: [PATCH] Fix error in list-error library

---
 code/list-error.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/code/list-error.sld b/code/list-error.sld
index e7c65d9..eb388af 100644
--- a/code/list-error.sld
+++ b/code/list-error.sld
@@ -32,4 +32,6 @@
 
     (define (dotted-list-error? obj)
       (and (list-error? obj)
-           (not (null-or-pair? (list-error-tail obj)))))))
+           (let ((tail (list-error-tail obj)))
+             (not (or (null? tail)
+                      (pair? tail))))))))