From 30c19b40f5fd583d19aa7cf495a19c1b91f86320 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 24 Jul 2019 23:23:13 -0400
Subject: No more "f/"-prefixed functions.

+ No more "m/"-prefixed functions.---
 stdlib/source/spec/compositor/generation/reference.lux | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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

diff --git a/stdlib/source/spec/compositor/generation/reference.lux b/stdlib/source/spec/compositor/generation/reference.lux
index eb5e3bf92..a5e75b590 100644
--- a/stdlib/source/spec/compositor/generation/reference.lux
+++ b/stdlib/source/spec/compositor/generation/reference.lux
@@ -6,6 +6,9 @@
    [control
     [pipe (#+ case>)]
     ["." try]]
+   [data
+    [number
+     ["f" frac]]]
    [tool
     [compiler
      ["." reference]
@@ -28,7 +31,7 @@
     (_.test "Definitions."
             (|> (define name (synthesis.f64 expected))
                 (case> (#try.Success actual)
-                       (f/= expected (:coerce Frac actual))
+                       (f.= expected (:coerce Frac actual))
 
                        (#try.Failure _)
                        false)))))
@@ -44,7 +47,7 @@
                                        (synthesis.variable/local register)])
                 (run "variable")
                 (case> (#try.Success actual)
-                       (f/= expected (:coerce Frac actual))
+                       (f.= expected (:coerce Frac actual))
 
                        (#try.Failure _)
                        false)))))
-- 
cgit v1.2.3