twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

fix show box stack overflow

Browse Source
This commit is contained in:
Scott Richmond 2024-06-14 15:55:57 -04:00
parent 5a27d345eb
commit 7a7a3b8977
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/base.janet
View File

@ -77,7 +77,7 @@
:list (string "[" (string/join (map show x) ", ") "]") :list (string "[" (string/join (map show x) ", ") "]")
:dict (string "#{" (dict-show x) "}") :dict (string "#{" (dict-show x) "}")
:set (string "${" (string/join (map show (keys 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) :pkg (show-pkg x)
(stringify x))) (stringify x)))

2
src/ludus.janet
View File

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