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. --- lux-lua/source/program.lux | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'lux-lua/source') diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index f904a2416..7b13d2d9d 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -230,7 +230,7 @@ Translator (`` (<| (if (ffi.null? host_object) (exception.except ..nil_has_no_lux_representation [])) - (~~ (with_template [ ] + (,, (with_template [ ] [(case (ffi.as host_object) {.#Some typed_object} (|> typed_object ) @@ -266,7 +266,7 @@ (def (function/* arity) (-> Nat Code) - (` (.-> (~+ (list.repeated arity (` .Any))) + (` (.-> (,* (list.repeated arity (` .Any))) .Any))) (def input/* @@ -285,7 +285,7 @@ (-> Nat (List Code)) (|>> ..input/* (list#each (function (_ $input) - (list $input (` (..read (~ $input)))))) + (list $input (` (..read (, $input)))))) list#conjoint)) (def (apply/* to_host self parameters abstraction) @@ -299,11 +299,11 @@ (pattern (list)) (in self) - (~~ (with_template [] - [(pattern (list (~~ (static.literals function.identity (..input/* ))))) - (in (to_host ((as (~~ (static.literal function.identity (..function/* ))) + (,, (with_template [] + [(pattern (list (,, (static.literals function.identity (..input/* ))))) + (in (to_host ((as (,, (static.literal function.identity (..function/* ))) lux_function) - (~~ (static.literals function.identity (..input/* ))))))] + (,, (static.literals function.identity (..input/* ))))))] [1] [2] @@ -312,10 +312,10 @@ [5] )) - (pattern (list.partial (~~ (static.literals function.identity (..input/* 5))) input/+)) - (again ((as (~~ (static.literal function.identity (..function/* 5))) + (pattern (list.partial (,, (static.literals function.identity (..input/* 5))) input/+)) + (again ((as (,, (static.literal function.identity (..function/* 5))) lux_function) - (~~ (static.literals function.identity (..input/* 5)))) + (,, (static.literals function.identity (..input/* 5)))) input/+) ))))))) @@ -336,16 +336,16 @@ (<| (..return %) self)) - (~~ (with_template [] + (,, (with_template [] [(net/sandius/rembulan/runtime/LuaFunction [] (invoke self [% net/sandius/rembulan/runtime/ExecutionContext - (~~ (static.literals function.identity (..declaration/* )))]) + (,, (static.literals function.identity (..declaration/* )))]) void "throws" [net/sandius/rembulan/runtime/ResolvedControlThrowable] (<| (..return %) (apply/* to_host (ffi.is net/sandius/rembulan/runtime/LuaFunction self) - (list (~~ (static.literals function.identity (..input/* )))) + (list (,, (static.literals function.identity (..input/* )))) lux_function)))] [1] @@ -782,7 +782,7 @@ (with_expansions [ (these (def (to_host it) (-> Any java/lang/Object) - (`` (<| (~~ (with_template [ ] + (`` (<| (,, (with_template [ ] [(case (ffi.as (as java/lang/Object it)) {.#Some it} (as java/lang/Object @@ -884,7 +884,7 @@ (`` (program: [service cli.service] (let [context (context.lua (cli.target service))] (do io.monad - [(~~ (for @.old [baggage platform] + [(,, (for @.old [baggage platform] @.jvm [baggage platform] @.lua platform)) ..platform] -- cgit v1.2.3