From b71b861008381626633bf28b033cd866d7e4e0b7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 20 Jun 2019 22:32:59 -0400
Subject: Improved the convention for using text formatters.

---
 stdlib/source/test/lux/control/pipe.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/test/lux/control/pipe.lux')

diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux
index 9b4110a39..4d4e03a79 100644
--- a/stdlib/source/test/lux/control/pipe.lux
+++ b/stdlib/source/test/lux/control/pipe.lux
@@ -7,7 +7,7 @@
     ["." identity]
     ["." name]
     ["." text ("#@." equivalence)
-     format]]
+     ["%" format (#+ format)]]]
    [math
     ["r" random]]]
   {1
@@ -69,16 +69,16 @@
             (_.test "Execution."
                     (n/= (n/* 10 sample)
                          (|> sample
-                             (exec> [%n (format "sample = ") log!])
+                             (exec> [%.nat (format "sample = ") log!])
                              (n/* 10))))
             (_.test "Tuple."
                     (let [[left middle right] (|> sample
                                                   (tuple> [inc]
                                                           [dec]
-                                                          [%n]))]
+                                                          [%.nat]))]
                       (and (n/= (inc sample) left)
                            (n/= (dec sample) middle)
-                           (text@= (%n sample) right))))
+                           (text@= (%.nat sample) right))))
             (_.test "Pattern-matching."
                     (text@= (case (n/% 10 sample)
                               0 "zero"
-- 
cgit v1.2.3