diff options
Diffstat (limited to 'stdlib/source/lux/host.jvm.lux')
| -rw-r--r-- | stdlib/source/lux/host.jvm.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/host.jvm.lux b/stdlib/source/lux/host.jvm.lux index cdef88e92..e4891f56b 100644 --- a/stdlib/source/lux/host.jvm.lux +++ b/stdlib/source/lux/host.jvm.lux @@ -22,7 +22,7 @@ ["s" syntax (#+ syntax: Syntax)]] ["." io]]) -(do-template [<name> <op> <from> <to>] +(template [<name> <op> <from> <to>] [(def: #export (<name> value) {#.doc (doc "Type converter." (: <to> @@ -594,7 +594,7 @@ (wrap (`' ((~ (code.text (format "jvm invokestatic" ":" class-name ":" method-name ":" (text.join-with "," arg-decls')))) (~+ args)))))) -(do-template [<name> <jvm-op>] +(template [<name> <jvm-op>] [(def: (<name> params class-name method-name arg-decls) (-> (List Type-Paramameter) Text Text (List ArgDecl) (Syntax Code)) (do p.monad @@ -1561,7 +1561,7 @@ _ return-term)) -(do-template [<name> <tag> <term-trans>] +(template [<name> <tag> <term-trans>] [(def: (<name> member return-term) (-> Import-Member-Declaration Code Code) (case member @@ -1587,7 +1587,7 @@ (-> Type-Paramameter Code) (code.identifier ["" name])) -(do-template [<name> <byte> <short> <int> <float>] +(template [<name> <byte> <short> <int> <float>] [(def: (<name> mode [class expression]) (-> Primitive-Mode [Text Code] Code) (case mode |