diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/host.old.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/lux/host.old.lux b/stdlib/source/lux/host.old.lux index b65058c88..af26b4372 100644 --- a/stdlib/source/lux/host.old.lux +++ b/stdlib/source/lux/host.old.lux @@ -231,8 +231,8 @@ (-> Text (Maybe Code)) (case class (^template [<prim> <type>] - <prim> - (#.Some (' <type>))) + [<prim> + (#.Some (' <type>))]) (["boolean" (primitive "java.lang.Boolean")] ["byte" (primitive "java.lang.Byte")] ["short" (primitive "java.lang.Short")] @@ -250,8 +250,8 @@ (-> Text (Maybe Code)) (case class (^template [<prim> <type>] - <prim> - (#.Some (' <type>))) + [<prim> + (#.Some (' <type>))]) (["boolean" .Bit] ["byte" .Int] ["short" .Int] @@ -369,8 +369,8 @@ (format "[" (simple-class$ env param)) (^template [<prim> <class>] - (#GenericClass <prim> #.Nil) - <class>) + [(#GenericClass <prim> #.Nil) + <class>]) (["boolean" "[Z"] ["byte" "[B"] ["short" "[S"] @@ -410,8 +410,8 @@ (-> (-> Code Code) Code Code) (case (f input) (^template [<tag>] - [meta (<tag> parts)] - [meta (<tag> (list@map (pre-walk-replace f) parts))]) + [[meta (<tag> parts)] + [meta (<tag> (list@map (pre-walk-replace f) parts))]]) ([#.Form] [#.Tuple]) @@ -551,8 +551,8 @@ [component recur^] (case component (^template [<class> <name>] - (#GenericClass <name> #.Nil) - (wrap (#GenericClass <class> (list)))) + [(#GenericClass <name> #.Nil) + (wrap (#GenericClass <class> (list)))]) (["[Z" "boolean"] ["[B" "byte"] ["[S" "short"] @@ -1701,8 +1701,8 @@ (array Object 10))} (case type (^template [<type> <array-op>] - (^ (#GenericClass <type> (list))) - (wrap (list (` (<array-op> (~ size)))))) + [(^ (#GenericClass <type> (list))) + (wrap (list (` (<array-op> (~ size)))))]) (["boolean" "jvm znewarray"] ["byte" "jvm bnewarray"] ["short" "jvm snewarray"] @@ -1752,8 +1752,8 @@ array-jvm-type (type->class-name array-type)] (case array-jvm-type (^template [<type> <array-op>] - <type> - (wrap (list (` (<array-op> (~ array) (~ idx)))))) + [<type> + (wrap (list (` (<array-op> (~ array) (~ idx)))))]) (["[Z" "jvm zaload"] ["[B" "jvm baload"] ["[S" "jvm saload"] @@ -1781,8 +1781,8 @@ array-jvm-type (type->class-name array-type)] (case array-jvm-type (^template [<type> <array-op>] - <type> - (wrap (list (` (<array-op> (~ array) (~ idx) (~ value)))))) + [<type> + (wrap (list (` (<array-op> (~ array) (~ idx) (~ value)))))]) (["[Z" "jvm zastore"] ["[B" "jvm bastore"] ["[S" "jvm sastore"] |