diff --git a/src/jolt/main.janet b/src/jolt/main.janet index 5de3b4d..3518a8d 100644 --- a/src/jolt/main.janet +++ b/src/jolt/main.janet @@ -94,12 +94,18 @@ (number? v) (prin v) (string? v) (prin v) (keyword? v) (prin ":") (prin (string v)) + (tuple? v) + (do (print-collection v) (print)) + (array? v) + (do (print-collection v) (print)) (and (struct? v) (= :symbol (get v :jolt/type))) (let [ns (get v :ns) name (get v :name)] (if ns (prin ns "/" name) (prin name))) (and (table? v) (= :jolt/var (v :jolt/type))) (prin "#'" (ctx-current-ns ctx) "/" ((var-name v) :name)) - (or (tuple? v) (array? v) (struct? v) (table? v)) + (struct? v) + (do (print-collection v) (print)) + (table? v) (do (print-collection v) (print)) (print v))))