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".

---
 new-luxc/source/luxc/lang/host/common-lisp.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/common-lisp.lux')

diff --git a/new-luxc/source/luxc/lang/host/common-lisp.lux b/new-luxc/source/luxc/lang/host/common-lisp.lux
index 2acc52700..50a942636 100644
--- a/new-luxc/source/luxc/lang/host/common-lisp.lux
+++ b/new-luxc/source/luxc/lang/host/common-lisp.lux
@@ -102,7 +102,7 @@
     (-> Text Expression)
     (|>> %t :abstraction))
 
-  (do-template [<name> <prefix>]
+  (template [<name> <prefix>]
     [(def: #export <name>
        (-> Text Expression)
        (|>> (format <prefix>) :abstraction))]
@@ -127,7 +127,7 @@
     (-> Expression (List Expression) Expression)
     (form (#.Cons func args)))
   
-  (do-template [<name> <function>]
+  (template [<name> <function>]
     [(def: #export <name>
        (-> (List Expression) Expression)
        ($apply (..global <function>)))]
@@ -156,7 +156,7 @@
     (-> Expression (-> Expression Expression))
     (|>> (.list) (..$apply func)))
 
-  (do-template [<lux-name> <scheme-name>]
+  (template [<lux-name> <scheme-name>]
     [(def: #export <lux-name> (..$apply1 (..global <scheme-name>)))]
 
     [length "length"]
@@ -204,7 +204,7 @@
     (.function (_ _0 _1)
       (..$apply func (.list _0 _1))))
 
-  (do-template [<lux-name> <scheme-name>]
+  (template [<lux-name> <scheme-name>]
     [(def: #export <lux-name> (..$apply2 (..global <scheme-name>)))]
 
     [append "append"]
@@ -224,7 +224,7 @@
     (.function (_ _0 _1 _2)
       (..$apply func (.list _0 _1 _2))))
 
-  (do-template [<lux-name> <scheme-name>]
+  (template [<lux-name> <scheme-name>]
     [(def: #export <lux-name> ($apply3 (..global <scheme-name>)))]
 
     [subseq/3 "subseq"]
@@ -237,7 +237,7 @@
     (-> Expression Expression Expression)
     (concatenate/3 (..symbol "string")))
 
-  (do-template [<lux-name> <scheme-name>]
+  (template [<lux-name> <scheme-name>]
     [(def: #export <lux-name>
        (-> (List Expression) Expression)
        (|>> (.list& (..global <scheme-name>)) ..form))]
@@ -246,7 +246,7 @@
     [and "and"]
     )
 
-  (do-template [<lux-name> <scheme-name>]
+  (template [<lux-name> <scheme-name>]
     [(def: #export (<lux-name> param subject)
        (-> Expression Expression Expression)
        (..form (.list (..global <scheme-name>) subject param)))]
@@ -273,7 +273,7 @@
     [logxor "logxor"]
     )
 
-  (do-template [<lux-name> <scheme-name>]
+  (template [<lux-name> <scheme-name>]
     [(def: #export (<lux-name> bindings body)
        (-> (List [SVar Expression]) Expression Expression)
        (..form (.list (..global <scheme-name>)
@@ -342,7 +342,7 @@
                                                handler)))
                               handlers))))
 
-  (do-template [<name> <prefix>]
+  (template [<name> <prefix>]
     [(def: #export (<name> conditions expression)
        (-> (List Text) Expression Expression)
        (case conditions
-- 
cgit v1.2.3