diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux index d23bf422b..e06ff9743 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux @@ -15,13 +15,13 @@ [analysis {"+" [Variant Tuple]}] ["[1][0]" synthesis {"+" [Synthesis]}] ["//[1]" /// "_" - ["[1][0]" phase ("[1]\[0]" monad)]]]]) + ["[1][0]" phase ("[1]#[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) (case elemsS+ {.#End} - (///////phase\in (//primitive.text /////synthesis.unit)) + (///////phase#in (//primitive.text /////synthesis.unit)) {.#Item singletonS {.#End}} (expression archive singletonS) @@ -29,12 +29,12 @@ _ (|> elemsS+ (monad.each ///////phase.monad (expression archive)) - (///////phase\each _.vector/*)))) + (///////phase#each _.vector/*)))) (def: .public (variant expression archive [lefts right? valueS]) (Generator (Variant Synthesis)) (let [tag (if right? (++ lefts) lefts)] - (///////phase\each (|>> [tag right?] //runtime.variant) + (///////phase#each (|>> [tag right?] //runtime.variant) (expression archive valueS)))) |