From 576b280a0c93d9d5367464e4c3dc40a5f2ba8ad2 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Mon, 11 Dec 2023 16:01:49 -0500
Subject: [PATCH] Fix pattern printing

---
 src/ludus/show.cljc | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/ludus/show.cljc b/src/ludus/show.cljc
index 0ac637a..e419f7e 100644
--- a/src/ludus/show.cljc
+++ b/src/ludus/show.cljc
@@ -79,7 +79,15 @@
 
     :else "else"
 
-    (:word :number :keyword :true :false :nil :string) (-> pattern :data first show)
+    :true "true"
+
+    :false "false"
+
+    :nil "nil"
+
+    :string (-> pattern :data first show)
+
+    (:word :number :keyword) (-> pattern :data first str)
 
     :typed
     (let [word (-> pattern :data first :data first)