From 118895081d97279a796cc704e6c23bf92ed79e5e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 30 Mar 2019 21:45:45 -0400
Subject: Re-named "do-template" to "template".

---
 stdlib/source/test/lux.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index f830f8215..4caf29c32 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -280,17 +280,17 @@
                        false))))
       ))
 
-(template: (hypotenuse cat0 cat1)
+(template: (quadrance cat0 cat1)
   (n/+ (n/* cat0 cat0) (n/* cat1 cat1)))
 
-(def: template
+(def: templates
   Test
   (do r.monad
     [cat0 r.nat
      cat1 r.nat]
     (_.test "Template application is a stand-in for the templated code."
             (n/= (n/+ (n/* cat0 cat0) (n/* cat1 cat1))
-                 (hypotenuse cat0 cat1)))))
+                 (quadrance cat0 cat1)))))
 
 (def: cross-platform-support
   Test
@@ -324,7 +324,7 @@
                       (..even-or-odd r.int i/even? i/odd?))))
           (<| (_.context "Minimum and maximum.")
               (`` ($_ _.and
-                      (~~ (do-template [<=> <lt> <min> <gt> <max> <gen> <context>]
+                      (~~ (template [<=> <lt> <min> <gt> <max> <gen> <context>]
                             [(<| (_.context <context>)
                                  (..minimum-and-maximum <gen> <=> [<lt> <min>] [<gt> <max>]))]
 
@@ -335,7 +335,7 @@
                             )))))
           (<| (_.context "Conversion.")
               (`` ($_ _.and
-                      (~~ (do-template [<=> <forward> <backward> <gen>]
+                      (~~ (template [<=> <forward> <backward> <gen>]
                             [(<| (_.context (format (%name (name-of <forward>))
                                                     " " (%name (name-of <backward>))))
                                  (..conversion <gen> <forward> <backward> <=>))]
@@ -349,7 +349,7 @@
           (<| (_.context "Prelude macros.")
               ..prelude-macros)
           (<| (_.context "Templates.")
-              ..template)
+              ..templates)
           (<| (_.context "Cross-platform support.")
               ..cross-platform-support)
           /cli.test
-- 
cgit v1.2.3