aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/debug.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/debug.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux
index c57394dd3..2778746ea 100644
--- a/stdlib/source/library/lux/debug.lux
+++ b/stdlib/source/library/lux/debug.lux
@@ -125,8 +125,8 @@
(loop [idx 0]
(let [member ("lua array read" idx tuple)]
(if ("lua object nil?" member)
- #.Nil
- (#.Cons member (recur (inc idx))))))))}
+ #.End
+ (#.Item member (recur (inc idx))))))))}
(as_is))
(def: (tuple_inspection inspection)
@@ -449,18 +449,18 @@
representations membersR+
variantV variantV]
(case representations
- (#.Cons leftR (#.Cons rightR extraR+))
+ (#.Item leftR (#.Item rightR extraR+))
(case (:as (| Any Any) variantV)
(#.Left left)
[lefts #0 (leftR left)]
(#.Right right)
(case extraR+
- #.Nil
+ #.End
[lefts #1 (rightR right)]
_
- (recur (inc lefts) (#.Cons rightR extraR+) right)))
+ (recur (inc lefts) (#.Item rightR extraR+) right)))
_
(undefined)))]
@@ -474,13 +474,13 @@
(let [tuple_body (loop [representations membersR+
tupleV tupleV]
(case representations
- #.Nil
+ #.End
""
- (#.Cons lastR #.Nil)
+ (#.Item lastR #.End)
(lastR tupleV)
- (#.Cons headR tailR)
+ (#.Item headR tailR)
(let [[leftV rightV] (:as [Any Any] tupleV)]
(%.format (headR leftV) " " (recur tailR rightV)))))]
(%.format "[" tuple_body "]"))))))
@@ -571,7 +571,7 @@
(dictionary.of_list text.hash))]
targets (: (Meta (List Target))
(case targets
- #.Nil
+ #.End
(|> environment
dictionary.keys
(list\map (function (_ local) [local #.None]))