aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/host/jvm/encoding.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/host/jvm/encoding.lux')
-rw-r--r--stdlib/source/lux/host/jvm/encoding.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/host/jvm/encoding.lux b/stdlib/source/lux/host/jvm/encoding.lux
index 2b2c487ec..ca6875eca 100644
--- a/stdlib/source/lux/host/jvm/encoding.lux
+++ b/stdlib/source/lux/host/jvm/encoding.lux
@@ -2,7 +2,7 @@
[lux #*
[control
[equivalence (#+ Equivalence)]
- [parser ("parser/." Functor<Parser>)]]
+ [parser ("parser/." functor)]]
[data
[number
["." i64]]
@@ -11,7 +11,7 @@
[type
abstract]])
-(do-template [<bytes> <name> <size> <to> <from>]
+(do-template [<bytes> <name> <size> <to> <from> <equivalence>]
[(abstract: #export <name>
{}
@@ -30,14 +30,14 @@
(-> <name> (I64 Any))
(|>> :representation))
- (structure: #export _ (Equivalence <name>)
+ (structure: #export <equivalence> (Equivalence <name>)
(def: (= reference sample)
("lux i64 =" (:representation reference) (:representation sample))))
)]
- [1 U1 u1-bytes to-u1 from-u1]
- [2 U2 u2-bytes to-u2 from-u2]
- [4 U4 u4-bytes to-u4 from-u4]
+ [1 U1 u1-bytes to-u1 from-u1 u1-equivalence]
+ [2 U2 u2-bytes to-u2 from-u2 u2-equivalence]
+ [4 U4 u4-bytes to-u4 from-u4 u4-equivalence]
)
(do-template [<name> <type> <format> <pre-write> <post-read>]