From cf3ffce3165dcbf741a5f2d6daa1146ad50fd95c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Jul 2022 13:02:38 -0400
Subject: Extensible macro vocabulary for "lux/macro/pattern.`".

---
 stdlib/source/test/lux/meta/macro.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'stdlib/source/test')

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))
 
-- 
cgit v1.2.3