aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme/source')
-rw-r--r--lux-scheme/source/program.lux92
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]