From b96beb587c11fcfbce86ce2d62351600cf6cad1b Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 2 Jul 2022 05:38:27 -0400 Subject: More traditional names for unquoting macros. --- stdlib/source/library/lux/ffi/export.jvm.lux | 30 ++++++++++++++-------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'stdlib/source/library/lux/ffi/export.jvm.lux') 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" [] ((~' ) []) - (~' void) - [(~+ (list#each (.function (_ [name type term]) + ("private" [] ((,' new) (,' self) []) [] []) + ("public" "strict" "static" [] ((,' ) []) + (,' 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))]) ))))))) -- cgit v1.2.3