aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/default/init.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/tool/compiler/default/init.lux10
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/init.lux b/stdlib/source/lux/tool/compiler/default/init.lux
index dc94f5507..370894d26 100644
--- a/stdlib/source/lux/tool/compiler/default/init.lux
+++ b/stdlib/source/lux/tool/compiler/default/init.lux
@@ -16,8 +16,10 @@
[world
["." file]]]
["." //
- ["#." syntax (#+ Aliases)]
["/#" // (#+ Instancer)
+ [language
+ [lux
+ ["." syntax (#+ Aliases)]]]
["#." analysis
[macro (#+ Expander)]
["#/." evaluation]]
@@ -80,7 +82,7 @@
(-> Module Aliases Source (///analysis.Operation Reader))
(function (_ [bundle state])
(#try.Success [[bundle state]
- (//syntax.parse current-module aliases ("lux text size" source-code))])))
+ (syntax.parse current-module aliases ("lux text size" source-code))])))
(def: (read source reader)
(-> Source Reader (///analysis.Operation [Source Code]))
@@ -175,7 +177,7 @@
(#try.Success [state (#.Some source&requirements&buffer)])
(#try.Failure error)
- (if (ex.match? //syntax.end-of-file error)
+ (if (ex.match? syntax.end-of-file error)
(#try.Success [state #.None])
(ex.with-stack ///.cannot-compile module (#try.Failure error)))))))
@@ -204,7 +206,7 @@
(..begin dependencies hash input))
#let [module (get@ #///.module input)]]
(loop [iteration (<| (///phase.run' state)
- (..iterate expander module source buffer //syntax.no-aliases))]
+ (..iterate expander module source buffer syntax.no-aliases))]
(do @
[[state ?source&requirements&buffer] iteration]
(case ?source&requirements&buffer