aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation.lux b/new-luxc/source/luxc/lang/translation.lux
index 6726470cc..62b56783c 100644
--- a/new-luxc/source/luxc/lang/translation.lux
+++ b/new-luxc/source/luxc/lang/translation.lux
@@ -145,10 +145,10 @@
_ (&module;flag-compiled! module-name)]
(wrap output)))
-(def: parse
- (Meta Code)
+(def: (parse current-module)
+ (-> Text (Meta Code))
(function [compiler]
- (case (&syntax;parse (get@ #;source compiler))
+ (case (&syntax;parse current-module (get@ #;source compiler))
(#e;Error error)
(#e;Error error)
@@ -171,7 +171,7 @@
file-content]
(exhaust
(do @
- [code parse
+ [code (parse module-name)
#let [[cursor _] code]]
(&;with-cursor cursor
(translate code)))))))]