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

properly show sets

Browse Source
This commit is contained in:
Scott Richmond 2024-06-15 21:52:50 -04:00
parent 6022895fa8
commit bce3f9d7b0
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/base.janet
View File

@ -69,6 +69,13 @@
(pairs dict)) (pairs dict))
", ")) ", "))
(defn- set-show [sett]
(def prepped (merge sett))
(set (prepped :^type) nil)
(def shown (map show (keys prepped)))
(string/join shown ", ")
)
(defn- show* [x] (defn- show* [x]
(case (ludus/type x) (case (ludus/type x)
:nil "nil" :nil "nil"
@ -76,7 +83,7 @@
:tuple (string "(" (string/join (map show x) ", ") ")") :tuple (string "(" (string/join (map show x) ", ") ")")
: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 "${" (set-show x) "}")
:box (string "box " (x :name) " [ " (show (x :^value)) " ]") :box (string "box " (x :name) " [ " (show (x :^value)) " ]")
:pkg (show-pkg x) :pkg (show-pkg x)
(stringify x))) (stringify x)))