diff options
Diffstat (limited to 'stdlib/source/library/lux/target/jvm/modifier.lux')
-rw-r--r-- | stdlib/source/library/lux/target/jvm/modifier.lux | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/target/jvm/modifier.lux b/stdlib/source/library/lux/target/jvm/modifier.lux index 68d8d8b7b..3900196fe 100644 --- a/stdlib/source/library/lux/target/jvm/modifier.lux +++ b/stdlib/source/library/lux/target/jvm/modifier.lux @@ -38,16 +38,18 @@ (representation reference) (representation sample)))) - (template: (!wrap value) - [(|> value - //unsigned.u2 - try.trusted - abstraction)]) + (def: !wrap + (template (_ value) + [(|> value + //unsigned.u2 + try.trusted + abstraction)])) - (template: (!unwrap value) - [(|> value - representation - //unsigned.value)]) + (def: !unwrap + (template (_ value) + [(|> value + representation + //unsigned.value)])) (def: .public (has? sub super) (All (_ of) (-> (Modifier of) (Modifier of) Bit)) @@ -82,7 +84,7 @@ (syntax (_ [ofT <code>.any options (<>.many <code>.any)]) (with_symbols [g!modifier g!code] - (in (list (` (template [(~ g!code) (~ g!modifier)] + (in (list (` (with_template [(~ g!code) (~ g!modifier)] [(def: (~' .public) (~ g!modifier) (..Modifier (~ ofT)) ((~! ..modifier) ((~! number.hex) (~ g!code))))] |