From 7a7a3b8977c70ccc6c09066987cf3e2fc1f55c83 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Fri, 14 Jun 2024 15:55:57 -0400
Subject: [PATCH] fix show box stack overflow

---
 src/base.janet  | 2 +-
 src/ludus.janet | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/base.janet b/src/base.janet
index 12602e7..c0fee40 100644
--- a/src/base.janet
+++ b/src/base.janet
@@ -77,7 +77,7 @@
     :list (string "[" (string/join (map show x) ", ") "]")
     :dict (string "#{" (dict-show x) "}")
     :set (string "${" (string/join (map show (keys x)) ", ") "}")
-    :box (string "box " (x :name) " [ " (show x) " ]")
+    :box (string "box " (x :name) " [ " (show (x :^value)) " ]")
     :pkg (show-pkg x)
     (stringify x)))
 
diff --git a/src/ludus.janet b/src/ludus.janet
index 2504da4..3f4f5d5 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -52,7 +52,7 @@
 # (comment
 (do
 (def source `
-"foo \bbar"
+box foo = nil
 `)
 (def out (-> source 
  ludus