diff options
author | Eduardo Julian | 2017-11-14 14:59:45 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-14 14:59:45 -0400 |
commit | 686a46f569b818681583e6ce75b37b25642b375b (patch) | |
tree | ee3c9d368ad6c89ce1475c34a2dc87e860f33279 /new-luxc/source/luxc/lang/translation.lux | |
parent | 72603f38074a67f9ab1e53df1b5fb5da3836162d (diff) |
- Removed "lux text last-index" procedure.
- Removed "lux text trim" procedure.
- Modified "lux text clip" procedure.
- Some bug fixes.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/translation.lux | 8 |
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)))))))] |