diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/host/jvm/encoding.lux | 12 |
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>] |