diff options
| author | Eduardo Julian | 2022-07-26 18:08:04 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-26 18:08:04 -0400 |
| commit | feacd79496ae9c76492d5a12d30b78724b642654 (patch) | |
| tree | a85708d1bfe43a98ba62b7f8589dcc95a71f86f5 /stdlib/source/test | |
| parent | dec796a9838e39148c007f3f3d360964d7cb68de (diff) | |
Made inlined functions into first-class macros.
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux/control/function/inline.lux | 7 | ||||
| -rw-r--r-- | stdlib/source/test/lux/meta/extension.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/test/lux/meta/target/js.lux | 8 |
3 files changed, 12 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/control/function/inline.lux b/stdlib/source/test/lux/control/function/inline.lux index 441ddef3c..94a21ede2 100644 --- a/stdlib/source/test/lux/control/function/inline.lux +++ b/stdlib/source/test/lux/control/function/inline.lux @@ -15,9 +15,10 @@ (template (_ m0 m1) [(i.+ (i.* m0 m0) (i.* m1 m1))])) -(/.inlined .public (quadrance/2 m0 m1) - (-> Int Int Int) - (!quadrance/2 m0 m1)) +(def .public quadrance/2 + (/.inlined (_ m0 m1) + (-> Int Int Int) + (!quadrance/2 m0 m1))) (def .public test Test diff --git a/stdlib/source/test/lux/meta/extension.lux b/stdlib/source/test/lux/meta/extension.lux index 8be85f9c0..bfe11a0e0 100644 --- a/stdlib/source/test/lux/meta/extension.lux +++ b/stdlib/source/test/lux/meta/extension.lux @@ -33,13 +33,13 @@ ["[0]" ruby] ["[0]" php] ["[0]" scheme] - ["[0]" jvm - (.,, (.for "JVM" (.,, (.these ["[1]" bytecode] + (.,, (.for "JVM" (.,, (.these ["[0]" jvm + ["[1]" bytecode] ["[0]" class] ["[0]" version] [encoding - ["[0]" name]])) - (.,, (.these))))]] + ["[0]" name]]])) + (.,, (.these))))] [compiler ["[0]" phase] [meta diff --git a/stdlib/source/test/lux/meta/target/js.lux b/stdlib/source/test/lux/meta/target/js.lux index 9604b26b3..94fc0c470 100644 --- a/stdlib/source/test/lux/meta/target/js.lux +++ b/stdlib/source/test/lux/meta/target/js.lux @@ -3,13 +3,13 @@ [lux (.except) ["_" test (.only Test)] [abstract - [monad (.only do)] - ["[0]" predicate]] + [monad (.only do)]] [control ["[0]" pipe] - ["[0]" function] ["[0]" maybe (.use "[1]#[0]" functor)] - ["[0]" try (.only Try) (.use "[1]#[0]" functor)]] + ["[0]" try (.only Try) (.use "[1]#[0]" functor)] + ["[0]" function (.only) + ["[0]" predicate]]] [data ["[0]" bit (.use "[1]#[0]" equivalence)] ["[0]" text (.only \n) (.use "[1]#[0]" equivalence) |