From ccfa75463cd7c702f41c3dae5cbdaeade7ba5c31 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Sep 2021 16:41:18 -0400
Subject: Re-named "recur" to "again".

---
 stdlib/source/library/lux.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index 6dff86c3c..ad9fcc8d8 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -1927,10 +1927,10 @@
 
            _
            (let' [loop ("lux type check" (-> Nat Text Text)
-                        (function' recur [input output]
+                        (function' again [input output]
                                    (if ("lux i64 =" 0 input)
                                      output
-                                     (recur (n// 10 input)
+                                     (again (n// 10 input)
                                             (text#composite (|> input (n/% 10) digit::format)
                                                             output)))))]
                  (loop value ""))}
@@ -1950,10 +1950,10 @@
                          "+"
                          "-")]
                  (("lux type check" (-> Int Text Text)
-                   (function' recur [input output]
+                   (function' again [input output]
                               (if ("lux i64 =" +0 input)
                                 (text#composite sign output)
-                                (recur ("lux i64 /" +10 input)
+                                (again ("lux i64 /" +10 input)
                                        (text#composite (|> input ("lux i64 %" +10) ("lux type as" Nat) digit::format)
                                                        output)))))
                   (|> value ("lux i64 /" +10) int#abs)
@@ -3336,10 +3336,10 @@
 (def: (replaced pattern replacement template)
   (-> Text Text Text Text)
   ((: (-> Text Text Text)
-      (function (recur left right)
+      (function (again left right)
         (case (..text#split_by pattern right)
           {#Some [pre post]}
-          (recur ($_ "lux text concat" left pre replacement) post)
+          (again ($_ "lux text concat" left pre replacement) post)
 
           {#None}
           ("lux text concat" left right))))
@@ -3764,7 +3764,7 @@
         {#Some tags&members}
         (do meta_monad
           [full_body ((: (-> Symbol [(List Symbol) (List Type)] Code (Meta Code))
-                         (function (recur source [tags members] target)
+                         (function (again source [tags members] target)
                            (let [locals (list#each (function (_ [t_module t_name])
                                                      [[t_module t_name]
                                                       ["" (..module_alias (list t_name) alias)]])
@@ -3782,7 +3782,7 @@
                                                                [m_implementation (record_slots m_type)]
                                                                (case m_implementation
                                                                  {#Some m_tags&members}
-                                                                 (recur m_local
+                                                                 (again m_local
                                                                         m_tags&members
                                                                         enhanced_target)
 
@@ -4324,7 +4324,7 @@
                   {#Some [name bindings body]}
                   
                   (^ (list [_ {#Tuple bindings}] body))
-                  {#Some [(local_symbol$ "recur") bindings body]}
+                  {#Some [(local_symbol$ "again") bindings body]}
 
                   _
                   {#None})]
-- 
cgit v1.2.3