diff options
| author | Eduardo Julian | 2022-07-08 13:02:38 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-08 13:02:38 -0400 |
| commit | cf3ffce3165dcbf741a5f2d6daa1146ad50fd95c (patch) | |
| tree | b6ac05b4e88c64a8c6b6a331ab1bb26c4bac8229 /stdlib/source/test | |
| parent | 523074289af8d9b473ed89e60fa586498de75aff (diff) | |
Extensible macro vocabulary for "lux/macro/pattern.`".
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux/meta/macro.lux | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/source/test/lux/meta/macro.lux b/stdlib/source/test/lux/meta/macro.lux index d128a74be..e2705e961 100644 --- a/stdlib/source/test/lux/meta/macro.lux +++ b/stdlib/source/test/lux/meta/macro.lux @@ -178,7 +178,7 @@ <actual> (/.times <cycles> (..iterated <max> <expected>))] (let [expected_remaining (n.- <cycles> <max>)] (case (` <actual>) - (^.` (..iterated (, [_ {.#Nat actual_remaining}]) (, [_ {.#Nat actual}]))) + (^.` (..iterated (^., [_ {.#Nat actual_remaining}]) (^., [_ {.#Nat actual}]))) (and (n.= expected_remaining actual_remaining) (n.= <expected> actual)) |