diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux index d6f4d2a2b..574e49b80 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux @@ -184,16 +184,16 @@ ..restore! post!)) -(def: (primitive_pattern_matching recur pathP) +(def: (primitive_pattern_matching again pathP) (-> (-> Path (Operation Statement)) (-> Path (Operation (Maybe Statement)))) (.case pathP {/////synthesis.#Bit_Fork when thenP elseP} (do [! ///////phase.monad] - [then! (recur thenP) + [then! (again thenP) else! (.case elseP {.#Some elseP} - (recur elseP) + (again elseP) {.#None} (in ..fail!))] @@ -212,7 +212,7 @@ (# ! each (|>> [(_.= (|> match <format>) ..peek)]) - (recur then))) + (again then))) {.#Item item})] (in {.#Some (_.cond clauses ..fail!)}))]) @@ -225,9 +225,9 @@ (def: (pattern_matching' in_closure? statement expression archive) (-> Bit (Generator! Path)) - (function (recur pathP) + (function (again pathP) (do ///////phase.monad - [?output (primitive_pattern_matching recur pathP)] + [?output (primitive_pattern_matching again pathP)] (.case ?output {.#Some output} (in output) @@ -245,10 +245,10 @@ {/////synthesis.#Bit_Fork when thenP elseP} (do [! ///////phase.monad] - [then! (recur thenP) + [then! (again thenP) else! (.case elseP {.#Some elseP} - (recur elseP) + (again elseP) {.#None} (in ..fail!))] @@ -267,7 +267,7 @@ (# ! each (|>> [(_.= (|> match <format>) ..peek)]) - (recur then))) + (again then))) {.#Item item})] (in (_.cond clauses ..fail!)))]) @@ -281,7 +281,7 @@ (^ (<simple> idx nextP)) (|> nextP - recur + again (///////phase#each (_.then (<choice> true idx))))]) ([/////synthesis.side/left /////synthesis.simple_left_side ..left_choice] [/////synthesis.side/right /////synthesis.simple_right_side ..right_choice]) @@ -297,7 +297,7 @@ (^ (/////synthesis.!bind_top register thenP)) (do ///////phase.monad - [then! (recur thenP)] + [then! (again thenP)] (///////phase#in ($_ _.then (_.set (list (..register register)) ..peek_and_pop) then!))) @@ -305,23 +305,23 @@ (^ (/////synthesis.!multi_pop nextP)) (.let [[extra_pops nextP'] (case.count_pops nextP)] (do ///////phase.monad - [next! (recur nextP')] + [next! (again nextP')] (///////phase#in ($_ _.then (..multi_pop! (n.+ 2 extra_pops)) next!)))) (^ (/////synthesis.path/seq preP postP)) (do ///////phase.monad - [pre! (recur preP) - post! (recur postP)] + [pre! (again preP) + post! (again postP)] (in ($_ _.then pre! post!))) (^ (/////synthesis.path/alt preP postP)) (do ///////phase.monad - [pre! (recur preP) - post! (recur postP) + [pre! (again preP) + post! (again postP) g!once (..symbol "once") g!continue? (..symbol "continue")] (in (..alternation in_closure? g!once g!continue? pre! post!)))))))) |