fix show box stack overflow

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)))
 

src/ludus.janet

@@ -52,7 +52,7 @@
 # (comment
 (do
 (def source `
-"foo \bbar"
+box foo = nil
 `)
 (def out (-> source 
  ludus