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/translation/r/expression.jvm.lux   |  2 +-
 .../source/luxc/lang/translation/r/procedure/common.jvm.lux  | 12 ++++++------
 .../source/luxc/lang/translation/r/procedure/host.jvm.lux    |  2 +-
 new-luxc/source/luxc/lang/translation/r/reference.jvm.lux    |  2 +-
 new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux      |  6 +++---
 5 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/r')

diff --git a/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux b/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux
index d838bc332..3c41fbe63 100644
--- a/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/expression.jvm.lux
@@ -22,7 +22,7 @@
       [".T" procedure])
   )
 
-(do-template [<name>]
+(template [<name>]
   [(exception: #export (<name> {message Text})
      message)]
 
diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
index 261e6cfb9..f806805c0 100644
--- a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
@@ -147,7 +147,7 @@
       ))
 
 ## [[Bits]]
-(do-template [<name> <op>]
+(template [<name> <op>]
   [(def: (<name> [subjectO paramO])
      Binary
      (<op> paramO subjectO))]
@@ -157,7 +157,7 @@
   [bit//xor runtimeT.bit//xor]
   )
 
-(do-template [<name> <op>]
+(template [<name> <op>]
   [(def: (<name> [subjectO paramO])
      Binary
      (<op> (runtimeT.int64-low paramO) subjectO))]
@@ -184,7 +184,7 @@
   (#static MIN_VALUE Double)
   (#static MAX_VALUE Double))
 
-(do-template [<name> <const> <encode>]
+(template [<name> <const> <encode>]
   [(def: (<name> _)
      Nullary
      (<encode> <const>))]
@@ -194,7 +194,7 @@
   [frac//max      Double::MAX_VALUE            r.float]
   )
 
-(do-template [<name> <op>]
+(template [<name> <op>]
   [(def: (<name> [subjectO paramO])
      Binary
      (|> subjectO (<op> paramO)))]
@@ -206,7 +206,7 @@
   [int//rem        runtimeT.int//%]
   )
 
-(do-template [<name> <op>]
+(template [<name> <op>]
   [(def: (<name> [subjectO paramO])
      Binary
      (<op> paramO subjectO))]
@@ -223,7 +223,7 @@
   [text//<   r.<]
   )
 
-(do-template [<name> <cmp>]
+(template [<name> <cmp>]
   [(def: (<name> [subjectO paramO])
      Binary
      (<cmp> paramO subjectO))]
diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux
index af82491b6..2793b40e8 100644
--- a/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux
@@ -14,7 +14,7 @@
   (/// [".T" runtime])
   (// ["@" common]))
 
-## (do-template [<name> <lua>]
+## (template [<name> <lua>]
 ##   [(def: (<name> _) @.Nullary <lua>)]
 
 ##   [lua//nil      "nil"]
diff --git a/new-luxc/source/luxc/lang/translation/r/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/r/reference.jvm.lux
index 087b87504..7de1c74ee 100644
--- a/new-luxc/source/luxc/lang/translation/r/reference.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/reference.jvm.lux
@@ -9,7 +9,7 @@
   [//]
   (// [".T" runtime]))
 
-(do-template [<register> <translation> <prefix>]
+(template [<register> <translation> <prefix>]
   [(def: #export (<register> register)
      (-> Register SVar)
      (r.var (format <prefix> (%i (.int register)))))
diff --git a/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux
index ce2265a8e..d641041d2 100644
--- a/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/runtime.jvm.lux
@@ -163,7 +163,7 @@
   (r.named-list (list [//.int-high-field (as-integer (@@ high))]
                       [//.int-low-field (as-integer (@@ low))])))
 
-(do-template [<name> <value>]
+(template [<name> <value>]
   [(runtime: <name>
      (..int <value>))]
 
@@ -597,7 +597,7 @@
       @@sum//get
       ))
 
-(do-template [<name> <op>]
+(template [<name> <op>]
   [(runtime: (<name> mask input)
      (int//new (<op> (int64-high (@@ mask))
                      (int64-high (@@ input)))
@@ -659,7 +659,7 @@
 
 (def: inc (-> Expression Expression) (|>> (r.+ (r.int 1))))
 
-(do-template [<name> <top-cmp>]
+(template [<name> <top-cmp>]
   [(def: (<name> top value)
      (-> Expression Expression Expression)
      (|> (|> value (r.>= (r.int 0)))
-- 
cgit v1.2.3