diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux.lux | 18 |
1 files changed, 9 insertions, 9 deletions
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})] |