diff options
| author | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
| commit | b96beb587c11fcfbce86ce2d62351600cf6cad1b (patch) | |
| tree | c9a558ab1391ac97cb11e8777ea78299f1ab5555 /stdlib/source/library/lux/ffi/export.jvm.lux | |
| parent | 104130efba46a875eba566384578f8aa8593ad37 (diff) | |
More traditional names for unquoting macros.
Diffstat (limited to 'stdlib/source/library/lux/ffi/export.jvm.lux')
| -rw-r--r-- | stdlib/source/library/lux/ffi/export.jvm.lux | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/library/lux/ffi/export.jvm.lux b/stdlib/source/library/lux/ffi/export.jvm.lux index 876491f0a..95a779da2 100644 --- a/stdlib/source/library/lux/ffi/export.jvm.lux +++ b/stdlib/source/library/lux/ffi/export.jvm.lux @@ -77,32 +77,32 @@ _ {.#None})) exports))] - (in (list (` (//.class "final" (~ (code.local api)) - (~+ (list#each (.function (_ it) + (in (list (` (//.class "final" (, (code.local api)) + (,* (list#each (.function (_ it) (case it {#Constant [name type term]} - (` ("public" "final" "static" (~ (code.local name)) (~ type))) + (` ("public" "final" "static" (, (code.local name)) (, type))) {#Function [[variables name requirements] type term]} (` ("public" "strict" "static" - [(~+ (list#each code.local variables))] - ((~ (code.local name)) - [(~+ (|> requirements + [(,* (list#each code.local variables))] + ((, (code.local name)) + [(,* (|> requirements (list#each (.function (_ [name type]) (list (code.local name) type))) list#conjoint))]) - (~ type) - (~ term))))) + (, type) + (, term))))) exports)) ... Useless constructor - ("private" [] ((~' new) (~' self) []) [] []) - ("public" "strict" "static" [] ((~' <clinit>) []) - (~' void) - [(~+ (list#each (.function (_ [name type term]) + ("private" [] ((,' new) (,' self) []) [] []) + ("public" "strict" "static" [] ((,' <clinit>) []) + (,' void) + [(,* (list#each (.function (_ [name type term]) (` ("jvm member put static" - (~ (code.text api)) - (~ (code.text name)) - ("jvm object cast" (~ term))))) + (, (code.text api)) + (, (code.text name)) + ("jvm object cast" (, term))))) initialization))]) ))))))) |