From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 10 Sep 2021 01:21:23 -0400
Subject: Migrated variants to the new syntax.

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

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

diff --git a/stdlib/source/specification/compositor/generation/reference.lux b/stdlib/source/specification/compositor/generation/reference.lux
index ce3c7332a..d98e660e0 100644
--- a/stdlib/source/specification/compositor/generation/reference.lux
+++ b/stdlib/source/specification/compositor/generation/reference.lux
@@ -31,10 +31,10 @@
      expected r.safe_frac]
     (_.test "Definitions."
             (|> (define name (synthesis.f64 expected))
-                (case> (#try.Success actual)
+                (case> {#try.Success actual}
                        (f.= expected (:as Frac actual))
 
-                       (#try.Failure _)
+                       {#try.Failure _}
                        false)))))
 
 (def: (variable run)
@@ -47,10 +47,10 @@
                                        register
                                        (synthesis.variable/local register)])
                 (run "variable")
-                (case> (#try.Success actual)
+                (case> {#try.Success actual}
                        (f.= expected (:as Frac actual))
 
-                       (#try.Failure _)
+                       {#try.Failure _}
                        false)))))
 
 (def: .public (spec runner definer)
-- 
cgit v1.2.3