diff options
Diffstat (limited to 'stdlib/source/library/lux/ffi.old.lux')
-rw-r--r-- | stdlib/source/library/lux/ffi.old.lux | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux index 04078189d..ea8b13a7c 100644 --- a/stdlib/source/library/lux/ffi.old.lux +++ b/stdlib/source/library/lux/ffi.old.lux @@ -1,31 +1,31 @@ (.module: [library [lux {"-" [type]} - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [control - ["." function] - ["." io] - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" function] + ["[0]" io] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." bit ("#\." codec)] - ["." text ("#\." equivalence monoid) + ["[0]" product] + ["[0]" bit ("[1]\[0]" codec)] + ["[0]" text ("[1]\[0]" equivalence monoid) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." monad mix monoid)]]] - ["." macro {"+" [with_identifiers]} + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" monad mix monoid)]]] + ["[0]" macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]] - ["." meta - ["." annotation]]]]) + ["[0]" code] + ["[0]" template]] + ["[0]" meta + ["[0]" annotation]]]]) (template [<name> <op> <from> <to>] [(def: .public (<name> value) @@ -528,7 +528,7 @@ ... Parsers (def: privacy_modifier^ (Parser Privacy) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "public")) (<code>.this! (' "private")) @@ -537,7 +537,7 @@ (def: inheritance_modifier^ (Parser Inheritance) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "final")) (<code>.this! (' "abstract")) @@ -1015,7 +1015,7 @@ (-> Type_Parameter JVM_Code) (format "(" name " " (spaced (list\each generic_type$ bounds)) ")")) -(def: (class_decl$ (^open ".")) +(def: (class_decl$ (^open "[0]")) (-> Class_Declaration JVM_Code) (format "(" (safe class_name) " " (spaced (list\each type_param$ class_params)) ")")) @@ -1425,8 +1425,8 @@ (def: (import_name format class member) (-> Text Text Text Text) (|> format - (text.replaced "#" class) - (text.replaced "." member))) + (text.replaced "[1]" class) + (text.replaced "[0]" member))) (def: syntax_inputs (-> (List Code) (List Code)) @@ -1511,7 +1511,7 @@ (#FieldAccessDecl fad) (do meta.monad - [.let [(^open ".") fad + [.let [(^open "[0]") fad base_gtype (class_type import_field_mode type_params import_field_type) classC (class_decl_type$ class) typeC (if import_field_maybe? |