aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/ffi.old.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/ffi.old.lux')
-rw-r--r--stdlib/source/library/lux/ffi.old.lux48
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?