From 9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 16 Jun 2022 00:48:19 -0400
Subject: De-sigil-ification: suffix : [Part 13]

---
 .../specification/compositor/generation/common.lux       | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux
index 85ea2a496..fabd44907 100644
--- a/stdlib/source/specification/compositor/generation/common.lux
+++ b/stdlib/source/specification/compositor/generation/common.lux
@@ -30,11 +30,11 @@
   [//
    [common (.only Runner)]]])
 
-(def: safe
+(def safe
   (-> Text Text)
   (text.replaced " " "_"))
 
-(def: (bit run)
+(def (bit run)
   (-> Runner Test)
   (do r.monad
     [param r.i64
@@ -76,7 +76,7 @@
                  (let [param (n.% 64 param)])))
            ))))
 
-(def: (i64 run)
+(def (i64 run)
   (-> Runner Test)
   (do r.monad
     [param (|> r.i64 (r.only (|>> ("lux i64 =" 0) not)))
@@ -122,11 +122,11 @@
                    ))
              ))))
 
-(def: simple_frac
+(def simple_frac
   (Random Frac)
   (|> r.nat (at r.monad each (|>> (n.% 1000) .int i.frac))))
 
-(def: (f64 run)
+(def (f64 run)
   (-> Runner Test)
   (do r.monad
     [param (|> ..simple_frac (r.only (|>> (f.= +0.0) not)))
@@ -179,7 +179,7 @@
                    (//case.verify subject)))
              ))))
 
-(def: (text run)
+(def (text run)
   (-> Runner Test)
   (do [! r.monad]
     [sample_size (|> r.nat (at ! each (|>> (n.% 10) (n.max 1))))
@@ -300,7 +300,7 @@
                  false)))
          )))
 
-(def: (io run)
+(def (io run)
   (-> Runner Test)
   (do r.monad
     [message (r.alphabetic 5)]
@@ -358,7 +358,7 @@
                  false)))
          )))
 
-(def: .public (spec runner)
+(def .public (spec runner)
   (-> Runner Test)
   (all _.and
        (..bit runner)
-- 
cgit v1.2.3