aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/debug.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/debug.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/debug.lux b/stdlib/source/lux/debug.lux
index 43d3f4762..59b35a223 100644
--- a/stdlib/source/lux/debug.lux
+++ b/stdlib/source/lux/debug.lux
@@ -38,13 +38,13 @@
(getClass [] (java/lang/Class java/lang/Object)))
(import: #long java/lang/Integer
- (longValue [] java/lang/Long))
+ (longValue [] long))
(import: #long java/lang/Long
- (intValue [] java/lang/Integer))
+ (intValue [] int))
(import: #long java/lang/Number
- (intValue [] java/lang/Integer)
+ (intValue [] int)
(longValue [] long)
(doubleValue [] double))
@@ -57,12 +57,12 @@
(`` (|> value (~~ (template.splice <processing>))))
#.None)]
- [java/lang/Boolean [%b]]
- [java/lang/String [%t]]
- [java/lang/Long [.int %i]]
+ [java/lang/Boolean [(:coerce .Bit) %b]]
+ [java/lang/String [(:coerce .Text) %t]]
+ [java/lang/Long [(:coerce .Int) %i]]
[java/lang/Number [java/lang/Number::doubleValue %f]]
))
- (case (host.check (Array java/lang/Object) object)
+ (case (host.check [java/lang/Object] object)
(#.Some value)
(let [value (:coerce (Array java/lang/Object) value)]
(case (array.read 0 value)