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/program/compositor/cli.lux              |  2 +-
 stdlib/source/program/licentia/document.lux           |  2 +-
 stdlib/source/program/licentia/license/definition.lux |  2 +-
 stdlib/source/program/licentia/license/term.lux       |  2 +-
 stdlib/source/program/licentia/output.lux             | 16 ++++++++--------
 stdlib/source/program/scriptum.lux                    |  4 ++--
 6 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor/cli.lux b/stdlib/source/program/compositor/cli.lux
index e08c83c7e..5c8e697a1 100644
--- a/stdlib/source/program/compositor/cli.lux
+++ b/stdlib/source/program/compositor/cli.lux
@@ -19,7 +19,7 @@
   (#Compilation Configuration)
   (#Interpretation Configuration))
 
-(do-template [<name> <long>]
+(template [<name> <long>]
   [(def: #export <name>
      (CLI Text)
      (cli.named <long> cli.any))]
diff --git a/stdlib/source/program/licentia/document.lux b/stdlib/source/program/licentia/document.lux
index c04cd9d72..1fd0189eb 100644
--- a/stdlib/source/program/licentia/document.lux
+++ b/stdlib/source/program/licentia/document.lux
@@ -27,7 +27,7 @@
   (|>> (list;map ..sentence)
        (text.join-with text.new-line)))
 
-(do-template [<name> <word>]
+(template [<name> <word>]
   [(def: #export <name>
      (-> (List Text) Text)
      (text.join-with (format ", " <word> " ")))]
diff --git a/stdlib/source/program/licentia/license/definition.lux b/stdlib/source/program/licentia/license/definition.lux
index 681f521e7..fea7b91f4 100644
--- a/stdlib/source/program/licentia/license/definition.lux
+++ b/stdlib/source/program/licentia/license/definition.lux
@@ -43,7 +43,7 @@
 (def: covered-work-description
   "work of authorship")
 
-(do-template [<name> <term> <meaning>]
+(template [<name> <term> <meaning>]
   [(def: #export <name>
      Definition
      {#term <term>
diff --git a/stdlib/source/program/licentia/license/term.lux b/stdlib/source/program/licentia/license/term.lux
index 9e81cf666..31b3e4b5d 100644
--- a/stdlib/source/program/licentia/license/term.lux
+++ b/stdlib/source/program/licentia/license/term.lux
@@ -6,7 +6,7 @@
   [//
    ["." definition]])
 
-(do-template [<term> <definition>]
+(template [<term> <definition>]
   [(def: #export <term>
      Text
      (get@ #definition.term <definition>))]
diff --git a/stdlib/source/program/licentia/output.lux b/stdlib/source/program/licentia/output.lux
index 29d61dd42..43080697e 100644
--- a/stdlib/source/program/licentia/output.lux
+++ b/stdlib/source/program/licentia/output.lux
@@ -43,7 +43,7 @@
 
 (def: #export (grant termination)
   (-> Termination Text)
-  (`` (format (~~ (do-template [<title> <content>]
+  (`` (format (~~ (template [<title> <content>]
                     [($.block ($.section {#$.title <title>
                                           #$.content <content>}))]
                     
@@ -65,7 +65,7 @@
 
 (def: #export limitation
   Text
-  (`` (format (~~ (do-template [<title> <content>]
+  (`` (format (~~ (template [<title> <content>]
                     [($.block ($.section {#$.title <title>
                                           #$.content <content>}))]
                     
@@ -80,7 +80,7 @@
 
 (def: #export assurance
   Text
-  (`` (format (~~ (do-template [<title> <content>]
+  (`` (format (~~ (template [<title> <content>]
                     [($.block ($.section {#$.title <title>
                                           #$.content <content>}))]
                     
@@ -92,7 +92,7 @@
 
 (def: #export (liability value)
   (-> Liability Text)
-  (`` (format (~~ (do-template [<title> <condition> <content>]
+  (`` (format (~~ (template [<title> <condition> <content>]
                     [(if <condition>
                        ($.block ($.section {#$.title <title>
                                             #$.content <content>}))
@@ -120,7 +120,7 @@
 
 (def: #export (distribution distribution)
   (-> Distribution Text)
-  (`` (format (~~ (do-template [<title> <condition> <content>]
+  (`` (format (~~ (template [<title> <condition> <content>]
                     [(if <condition>
                        ($.block ($.section {#$.title <title>
                                             #$.content <content>}))
@@ -141,7 +141,7 @@
 
 (def: #export (commercial value)
   (-> Commercial Text)
-  (`` (format (~~ (do-template [<title> <condition> <content>]
+  (`` (format (~~ (template [<title> <condition> <content>]
                     [(if <condition>
                        ($.block ($.section {#$.title <title>
                                             #$.content <content>}))
@@ -168,7 +168,7 @@
 
                            #.None
                            [false ""])]
-    (`` (format (~~ (do-template [<condition> <title> <content>]
+    (`` (format (~~ (template [<condition> <title> <content>]
                       [(if <condition>
                          ($.block ($.section {#$.title <title>
                                               #$.content <content>}))
@@ -210,7 +210,7 @@
 
 (def: #export (miscellaneous identified?)
   (-> Bit Text)
-  (`` (format (~~ (do-template [<title> <condition> <content>]
+  (`` (format (~~ (template [<title> <condition> <content>]
                     [(if <condition>
                        ($.block ($.section {#$.title <title>
                                             #$.content <content>}))
diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index defca9477..23b1d575b 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -46,7 +46,7 @@
   (Sequence Text)
   (|> 0 (sequence.iterate inc) (sequence;map parameter-type-name)))
 
-(do-template [<name> <partition>]
+(template [<name> <partition>]
   [(def: (<name> id)
      (-> Nat Bit)
      (<partition> id))]
@@ -408,7 +408,7 @@
       (list;fold (function.flip md.then)
                  (md.heading/2 "Macros"))))
 
-(do-template [<singular> <plural> <header>]
+(template [<singular> <plural> <header>]
   [(def: (<singular> module type)
      (-> Text Type (Markdown Block))
      (md.code (pprint-type (dec 0) "?" module type)))
-- 
cgit v1.2.3