From 147b56f0515b9f7cc465c53a65af436a688fba99 Mon Sep 17 00:00:00 2001
From: Jakub <birdt@citadel.tail9cfa84.ts.net>
Date: Sun, 12 Jul 2026 12:23:47 +0800
Subject: [PATCH] Slightly better error check

---
 mithril.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mithril.scm b/mithril.scm
index 33be6e7..0037ae6 100644
--- a/mithril.scm
+++ b/mithril.scm
@@ -23,7 +23,8 @@ heading component:
       (h1 ~vnode.state.title))
     :title \"Title Text\"))
 ```"
-  (when (= (remainder (length args) 2 1))
+  (when (and (not (null? args))
+	     (= (remainder (length args) 2 1)))
     (error (format
 	    "mithril:comp-> Component macro expects even length args list.