From 891b1cfc82322f8017f0a4f6b707d6fe52024545 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 3 Sep 2021 21:51:30 -0400
Subject: Unified tuple and record syntax.

---
 stdlib/source/specification/compositor/generation/structure.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation/structure.lux')

diff --git a/stdlib/source/specification/compositor/generation/structure.lux b/stdlib/source/specification/compositor/generation/structure.lux
index ec9893e7c..33e38520f 100644
--- a/stdlib/source/specification/compositor/generation/structure.lux
+++ b/stdlib/source/specification/compositor/generation/structure.lux
@@ -36,11 +36,11 @@
      .let [last?_in (|> num_tags -- (n.= tag_in))]
      value_in r.i64]
     (_.test (%.name (name_of synthesis.variant))
-            (|> (synthesis.variant {#analysis.lefts (if last?_in
+            (|> (synthesis.variant [#analysis.lefts (if last?_in
                                                       (-- tag_in)
                                                       tag_in)
                                     #analysis.right? last?_in
-                                    #analysis.value (synthesis.i64 value_in)})
+                                    #analysis.value (synthesis.i64 value_in)])
                 (run "variant")
                 (case> (#try.Success valueT)
                        (let [valueT (:as (Array Any) valueT)]
-- 
cgit v1.2.3