diff options
Diffstat (limited to 'stdlib/source/lux/host/jvm/modifier.lux')
| -rw-r--r-- | stdlib/source/lux/host/jvm/modifier.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/host/jvm/modifier.lux b/stdlib/source/lux/host/jvm/modifier.lux index 8451c3107..41d84a59b 100644 --- a/stdlib/source/lux/host/jvm/modifier.lux +++ b/stdlib/source/lux/host/jvm/modifier.lux @@ -10,7 +10,7 @@ [format ["." binary]] [collection - [list ("list/." Functor<List>)]]] + [list ("list/." functor)]]] [type ["." abstract]] [macro (#+ with-gensyms) @@ -56,15 +56,15 @@ (.do-template [(~ g!<code>) (~ g!<name>)] [(.def: (~' #export) (~ g!<name>) (~ g!name) - (.|> (number.hex (~ g!<code>)) //encoding.to-u2 abstract.:abstraction))] + (.|> ((~! number.hex) (~ g!<code>)) //encoding.to-u2 abstract.:abstraction))] ["0000" (~ g!empty)] (~+ (list/map ..code options)) ) - (.structure: (~' #export) (~' _) (equivalence.Equivalence (~ g!name)) + (.structure: (~' #export) (~' modifier-equivalence) (equivalence.Equivalence (~ g!name)) (.def: ((~' =) (~' reference) (~' sample)) - (.:: //encoding.Equivalence<U2> (~' =) + (.:: //encoding.u2-equivalence (~' =) (abstract.:representation (~' reference)) (abstract.:representation (~' sample))))) @@ -72,7 +72,7 @@ (binary.Format (~ g!name)) (.let [(.^open "_/.") //encoding.u2-format] {#binary.reader (|> (~' _/reader) - (:: parser.Functor<Parser> (~' map) + (:: parser.functor (~' map) (|>> abstract.:abstraction))) #binary.writer (|>> abstract.:representation (~' _/writer))})))) |