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/primitive.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/spec/compositor/generation/primitive.lux b/stdlib/source/spec/compositor/generation/primitive.lux
index e3068a50a..e5b601677 100644
--- a/stdlib/source/spec/compositor/generation/primitive.lux
+++ b/stdlib/source/spec/compositor/generation/primitive.lux
@@ -9,7 +9,7 @@
    [data
     ["." bit ("#@." equivalence)]
     [number
-     ["." frac]]
+     ["f" frac]]
     ["." text ("#@." equivalence)
      ["%" format (#+ format)]]]
    [math
@@ -22,9 +22,9 @@
 
 (def: (f/=' reference subject)
   (-> Frac Frac Bit)
-  (or (f/= reference subject)
-      (and (frac.not-a-number? reference)
-           (frac.not-a-number? subject))))
+  (or (f.= reference subject)
+      (and (f.not-a-number? reference)
+           (f.not-a-number? subject))))
 
 (def: #export (spec run)
   (-> Runner Test)
@@ -42,7 +42,7 @@
 
                 ["bit" synthesis.bit  r.bit  bit@=]
                 ["i64" synthesis.i64  r.i64  "lux i64 ="]
-                ["f64" synthesis.f64  r.frac  f/=']
+                ["f64" synthesis.f64  r.frac  f.=']
                 ["text" synthesis.text (r.ascii 5) text@=]
                 ))
           )))
-- 
cgit v1.2.3