From 686a46f569b818681583e6ce75b37b25642b375b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Nov 2017 14:59:45 -0400
Subject: - Removed "lux text last-index" procedure. - Removed "lux text trim"
 procedure. - Modified "lux text clip" procedure. - Some bug fixes.

---
 new-luxc/source/luxc/lang/translation.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation.lux')

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)))))))]
-- 
cgit v1.2.3