aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/target/jvm/constant.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/target/jvm/constant.lux')
-rw-r--r--stdlib/source/library/lux/target/jvm/constant.lux50
1 files changed, 25 insertions, 25 deletions
diff --git a/stdlib/source/library/lux/target/jvm/constant.lux b/stdlib/source/library/lux/target/jvm/constant.lux
index 229dd247f..5916d245d 100644
--- a/stdlib/source/library/lux/target/jvm/constant.lux
+++ b/stdlib/source/library/lux/target/jvm/constant.lux
@@ -179,8 +179,8 @@
(def: .public equivalence
(Equivalence Constant)
- ## TODO: Delete the explicit "implementation" and use the combinator
- ## version below as soon as the new format for variants is implemented.
+ ... TODO: Delete the explicit "implementation" and use the combinator
+ ... version below as soon as the new format for variants is implemented.
(implementation
(def: (= reference sample)
(case [reference sample]
@@ -201,26 +201,26 @@
_
false)))
- ## ($_ sum.equivalence
- ## ## #UTF8
- ## text.equivalence
- ## ## #Long
- ## (..value_equivalence int.equivalence)
- ## ## #Double
- ## (..value_equivalence frac.equivalence)
- ## ## #Class
- ## ..class_equivalence
- ## ## #String
- ## (..value_equivalence //index.equivalence)
- ## ## #Field
- ## ..reference_equivalence
- ## ## #Method
- ## ..reference_equivalence
- ## ## #Interface_Method
- ## ..reference_equivalence
- ## ## #Name_And_Type
- ## ..name_and_type_equivalence
- ## )
+ ... ($_ sum.equivalence
+ ... ... #UTF8
+ ... text.equivalence
+ ... ... #Long
+ ... (..value_equivalence int.equivalence)
+ ... ... #Double
+ ... (..value_equivalence frac.equivalence)
+ ... ... #Class
+ ... ..class_equivalence
+ ... ... #String
+ ... (..value_equivalence //index.equivalence)
+ ... ... #Field
+ ... ..reference_equivalence
+ ... ... #Method
+ ... ..reference_equivalence
+ ... ... #Interface_Method
+ ... ..reference_equivalence
+ ... ... #Name_And_Type
+ ... ..name_and_type_equivalence
+ ... )
)
(def: .public writer
@@ -236,9 +236,9 @@
[#Method /tag.method ..reference_writer]
[#Interface_Method /tag.interface_method ..reference_writer]
[#Name_And_Type /tag.name_and_type ..name_and_type_writer]
- ## TODO: Method_Handle
- ## TODO: Method_Type
- ## TODO: Invoke_Dynamic
+ ... TODO: Method_Handle
+ ... TODO: Method_Type
+ ... TODO: Invoke_Dynamic
)]
(function (_ value)
(case value