diff options
Diffstat (limited to 'lux-scheme/source')
| -rw-r--r-- | lux-scheme/source/program.lux | 92 |
1 files changed, 46 insertions, 46 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux index f96d207b6..a4524eff8 100644 --- a/lux-scheme/source/program.lux +++ b/lux-scheme/source/program.lux @@ -1,35 +1,35 @@ (.module: [lux "*" [program {"+" [program:]}] - ["." ffi] - ["." debug] + ["[0]" ffi] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [exec> case> new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." promise {"+" [Promise]}]]] + ["[0]" promise {"+" [Promise]}]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat] - ["." i64]]] + ["[0]" i64]]] [time - ["." instant]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" instant]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" scheme]] [tool @@ -41,29 +41,29 @@ [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" scheme]] - ["." generation "_" - ["#" scheme]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" scheme]] + ["[0]" generation "_" + ["[1]" scheme]]] [generation - ["." reference] - ["." scheme - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" scheme + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta - ["." packager "_" - ["#" scheme]]]]]] + ["[0]" packager "_" + ["[1]" scheme]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (ffi.import: java/lang/Boolean) (ffi.import: java/lang/String) @@ -71,64 +71,64 @@ (ffi.import: (java/lang/Class a)) (ffi.import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (ffi.import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] java/lang/Long)]) (ffi.import: gnu/math/IntNum - ["#::." + ["[1]::[0]" (new "manual" [int]) (longValue [] long)]) (ffi.import: gnu/math/DFloNum - ["#::." + ["[1]::[0]" (doubleValue [] double)]) (ffi.import: gnu/lists/FString - ["#::." + ["[1]::[0]" (toString [] String)]) (ffi.import: gnu/lists/IString - ["#::." + ["[1]::[0]" (toString [] String)]) (ffi.import: gnu/lists/Pair - ["#::." + ["[1]::[0]" (getCar [] java/lang/Object) (getCdr [] java/lang/Object)]) (ffi.import: gnu/lists/EmptyList - ["#::." + ["[1]::[0]" ("static" emptyList gnu/lists/EmptyList)]) (ffi.import: (gnu/lists/FVector E) - ["#::." + ["[1]::[0]" (getBufferLength [] int) (getRaw [int] E)]) (ffi.import: gnu/lists/U8Vector) (ffi.import: gnu/mapping/Procedure - ["#::." + ["[1]::[0]" (apply2 [java/lang/Object java/lang/Object] "try" java/lang/Object) (applyN [[java/lang/Object]] "try" java/lang/Object)]) (ffi.import: gnu/mapping/Environment) (ffi.import: gnu/expr/Language - ["#::." + ["[1]::[0]" (eval [java/lang/String] "try" java/lang/Object)]) (ffi.import: kawa/standard/Scheme - ["#::." + ["[1]::[0]" ("static" getR7rsInstance [] kawa/standard/Scheme)]) (def: (variant? value) @@ -158,7 +158,7 @@ (getValue [] java/lang/Object)) (`` (ffi.import: (~~ (template.identifier ["program/" <name>])) - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]))] [VariantValue] |