diff options
Diffstat (limited to 'stdlib/source/test/lux/world/input/keyboard.lux')
-rw-r--r-- | stdlib/source/test/lux/world/input/keyboard.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index 4e9db7301..6d3daa301 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -112,7 +112,7 @@ /.f24]])] (def: listing (List /.Key) - (list.together (`` (list (~~ (template [<definition> <keys>] + (list.together (`` (list (~~ (with_template [<definition> <keys>] [((is (-> Any (List /.Key)) (function (_ _) (`` (list (~~ (template.spliced <keys>)))))) @@ -128,7 +128,7 @@ (n.= (list.size ..listing) (set.size ..catalogue))) - (template [<definition> <keys>] + (with_template [<definition> <keys>] [(def: <definition> Test (_.coverage <keys> @@ -148,14 +148,14 @@ (<| (_.covering /._) (_.for [/.Key]) (`` (all _.and - (~~ (template [<definition> <keys>] + (~~ (with_template [<definition> <keys>] [<definition>] <groups>)) (_.for [/.Press] (`` (all _.and - (~~ (template [<pressed?> <function>] + (~~ (with_template [<pressed?> <function>] [(do random.monad [key ..random .let [sample (<function> key)]] |