diff options
Diffstat (limited to 'stdlib/source/lux/platform/compiler/phase/translation/scheme')
7 files changed, 28 insertions, 28 deletions
diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/case.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/case.jvm.lux index b50e4485a..92b55cb80 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/case.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/case.jvm.lux @@ -8,12 +8,12 @@ ["." text format] [collection - [list ("list/." functor fold)] + ["." list ("#/." functor fold)] [set (#+ Set)]]]] [// ["." runtime (#+ Operation Phase)] ["." reference] - ["/." /// ("operation/." monad) + ["/." /// ("#/." monad) ["." synthesis (#+ Synthesis Path)] [// [reference (#+ Register)] @@ -111,16 +111,16 @@ (translate bodyS) #synthesis.Pop - (operation/wrap pop-cursor!) + (/////wrap pop-cursor!) (#synthesis.Bind register) - (operation/wrap (_.define (reference.local' register) [(list) #.None] - cursor-top)) + (/////wrap (_.define (reference.local' register) [(list) #.None] + cursor-top)) (^template [<tag> <format> <=>] (^ (<tag> value)) - (operation/wrap (_.when (|> value <format> (<=> cursor-top) _.not/1) - fail-pm!))) + (/////wrap (_.when (|> value <format> (<=> cursor-top) _.not/1) + fail-pm!))) ([synthesis.path/bit _.bool _.eqv?/2] [synthesis.path/i64 (<| _.int .int) _.=/2] [synthesis.path/f64 _.float _.=/2] @@ -128,16 +128,16 @@ (^template [<pm> <flag> <prep>] (^ (<pm> idx)) - (operation/wrap (_.let (list [@temp (|> idx <prep> .int _.int (runtime.sum//get cursor-top <flag>))]) - (_.if (_.null?/1 @temp) - fail-pm! - (push-cursor! @temp))))) + (/////wrap (_.let (list [@temp (|> idx <prep> .int _.int (runtime.sum//get cursor-top <flag>))]) + (_.if (_.null?/1 @temp) + fail-pm! + (push-cursor! @temp))))) ([synthesis.side/left _.nil (<|)] [synthesis.side/right (_.string "") inc]) (^template [<pm> <getter> <prep>] (^ (<pm> idx)) - (operation/wrap (|> idx <prep> .int _.int (<getter> cursor-top) push-cursor!))) + (/////wrap (|> idx <prep> .int _.int (<getter> cursor-top) push-cursor!))) ([synthesis.member/left runtime.product//left (<|)] [synthesis.member/right runtime.product//right inc]) diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/extension/common.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/extension/common.jvm.lux index 46f0c8102..1c55abf83 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/extension/common.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/extension/common.jvm.lux @@ -10,7 +10,7 @@ format] [number (#+ hex)] [collection - ["." list ("list/." functor)] + ["." list ("#/." functor)] ["dict" dictionary (#+ Dictionary)]]] ["." macro (#+ with-gensyms) ["." code] diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/function.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/function.jvm.lux index 8d19558dd..fe08b6a50 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/function.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/function.jvm.lux @@ -8,12 +8,12 @@ [text format] [collection - ["." list ("list/." functor)]]]] + ["." list ("#/." functor)]]]] [// ["." runtime (#+ Operation Phase)] ["." reference] ["/." // - ["//." // ("operation/." monad) + ["//." // ("#/." monad) [analysis (#+ Variant Tuple Environment Arity Abstraction Application Analysis)] [synthesis (#+ Synthesis)] [// @@ -33,7 +33,7 @@ (def: (with-closure function-name inits function-definition) (-> Text (List Expression) Computation (Operation Computation)) (let [@closure (_.var (format function-name "___CLOSURE"))] - (operation/wrap + (/////wrap (case inits #.Nil function-definition diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/loop.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/loop.jvm.lux index e25b96254..0d85654c1 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/loop.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/loop.jvm.lux @@ -7,7 +7,7 @@ ["." text format] [collection - ["." list ("list/." functor)]]]] + ["." list ("#/." functor)]]]] [// [runtime (#+ Operation Phase)] ["." reference] diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/primitive.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/primitive.jvm.lux index caa71f74f..dc643bcbc 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/primitive.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/primitive.jvm.lux @@ -3,23 +3,23 @@ [// [runtime (#+ Operation)] [// (#+ State) - [// ("operation/." monad) + ["//." // ("#/." monad) [/// [host ["_" scheme (#+ Expression)]]]]]]) (def: #export bit (-> Bit (Operation Expression)) - (|>> _.bool operation/wrap)) + (|>> _.bool /////wrap)) (def: #export i64 (-> (I64 Any) (Operation Expression)) - (|>> .int _.int operation/wrap)) + (|>> .int _.int /////wrap)) (def: #export f64 (-> Frac (Operation Expression)) - (|>> _.float operation/wrap)) + (|>> _.float /////wrap)) (def: #export text (-> Text (Operation Expression)) - (|>> _.string operation/wrap)) + (|>> _.string /////wrap)) diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/reference.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/reference.jvm.lux index 88e091e83..161d2adea 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/reference.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/reference.jvm.lux @@ -8,7 +8,7 @@ [// [runtime (#+ Operation)] ["/." // - [// ("operation/." monad) + ["//." // ("#/." monad) [analysis (#+ Variant Tuple)] [synthesis (#+ Synthesis)] [// @@ -33,11 +33,11 @@ (#reference.Foreign register) (foreign' register)) - operation/wrap)) + /////wrap)) (def: #export constant (-> Name (Operation Global)) - (|>> ///.remember (operation/map _.global))) + (|>> ///.remember (/////map _.global))) (def: #export reference (-> Reference (Operation Expression)) diff --git a/stdlib/source/lux/platform/compiler/phase/translation/scheme/runtime.jvm.lux b/stdlib/source/lux/platform/compiler/phase/translation/scheme/runtime.jvm.lux index 97e53d143..d254e8c7d 100644 --- a/stdlib/source/lux/platform/compiler/phase/translation/scheme/runtime.jvm.lux +++ b/stdlib/source/lux/platform/compiler/phase/translation/scheme/runtime.jvm.lux @@ -1,14 +1,14 @@ (.module: [lux #* [control - ["p" parser ("parser/." monad)] + ["p" parser ("#/." monad)] [monad (#+ do)]] [data [number (#+ hex)] [text format] [collection - ["." list ("list/." monad)]]] + ["." list ("#/." monad)]]] ["." function] [macro ["." code] @@ -74,7 +74,7 @@ (def: declaration (s.Syntax [Text (List Text)]) - (p.either (p.and s.local-identifier (parser/wrap (list))) + (p.either (p.and s.local-identifier (p/wrap (list))) (s.form (p.and s.local-identifier (p.some s.local-identifier))))) (syntax: (runtime: {[name args] declaration} |