From f855c20a7af7428b638e4c2a3c4c654bd01576dc Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 5 Aug 2015 00:05:04 -0400
Subject: - The compiler now stores the cursor of the last analysed AST in
 order to avoid the problem of error ocurring "nowhere" (at ["" -1 -1]).

---
 source/lux.lux | 36 ++++++++++++++++++++++++------------
 1 file changed, 24 insertions(+), 12 deletions(-)

(limited to 'source/lux.lux')

diff --git a/source/lux.lux b/source/lux.lux
index ced208d40..36a0997f4 100644
--- a/source/lux.lux
+++ b/source/lux.lux
@@ -270,7 +270,8 @@
 ##      #host         HostState
 ##      #seed         Int
 ##      #eval?        Bool
-##      #expected     Type))
+##      #expected     Type
+##      #cursor       Cursor))
 (_lux_def Compiler
   (#AppT [(#AllT [(#Some #Nil) "lux;Compiler" ""
                   (#RecordT (#Cons [["lux;source" Reader]
@@ -284,7 +285,8 @@
                                                                     (#Cons [["lux;seed" Int]
                                                                             (#Cons [["lux;eval?" Bool]
                                                                                     (#Cons [["lux;expected" Type]
-                                                                                            #Nil])])])])])])])]))])
+                                                                                            (#Cons [["lux;cursor" Cursor]
+                                                                                                    #Nil])])])])])])])])]))])
           Void]))
 (_lux_export Compiler)
 
@@ -1316,7 +1318,8 @@
   (_lux_case state
     {#source source #modules modules
      #envs   envs   #types   types   #host     host
-     #seed   seed   #eval?   eval?   #expected expected}
+     #seed   seed   #eval?   eval?   #expected expected
+     #cursor cursor}
     (_lux_case (reverse envs)
       #Nil
       (#Left "Can't get the module name without a module!")
@@ -1355,7 +1358,8 @@
                    (_lux_case state
                      {#source source #modules modules
                       #envs   envs   #types   types   #host           host
-                      #seed   seed   #eval? eval? #expected expected}
+                      #seed   seed   #eval? eval? #expected expected
+                      #cursor cursor}
                      (#Right [state (find-macro' modules current-module module name)]))))))
 
 (def''' (list:join xs)
@@ -1912,10 +1916,12 @@
   (case state
     {#source source #modules modules
      #envs   envs   #types   types   #host           host
-     #seed   seed   #eval? eval? #expected expected}
+     #seed   seed   #eval? eval? #expected expected
+     #cursor cursor}
     (#Right {#source source #modules modules
              #envs   envs   #types   types   #host           host
-             #seed   (i+ 1 seed) #eval? eval? #expected expected}
+             #seed   (i+ 1 seed) #eval? eval? #expected expected
+             #cursor cursor}
             (symbol$ ["__gensym__" (->text seed)]))))
 
 (defmacro #export (sig tokens)
@@ -2187,7 +2193,8 @@
   (lambda [state]
     (let [{#source source #modules modules
            #envs   envs   #types   types   #host           host
-           #seed   seed   #eval? eval? #expected expected} state]
+           #seed   seed   #eval? eval? #expected expected
+           #cursor cursor} state]
       (#Right state expected))))
 
 (defmacro #export (struct tokens)
@@ -2403,7 +2410,8 @@
   (case state
     {#source source #modules modules
      #envs   envs   #types   types             #host  host
-     #seed   seed   #eval? eval? #expected expected}
+     #seed   seed   #eval? eval? #expected expected
+     #cursor cursor}
     (case (get module modules)
       (#Some =module)
       (#Right state true)
@@ -2417,7 +2425,8 @@
   (case state
     {#source source #modules modules
      #envs   envs   #types   types             #host  host
-     #seed   seed   #eval? eval? #expected expected}
+     #seed   seed   #eval? eval? #expected expected
+     #cursor cursor}
     (case (get module modules)
       (#Some =module)
       (let [to-alias (map (: (-> (, Text (, Bool (DefData' (-> (List AST) (StateE Compiler (List AST))))))
@@ -2600,7 +2609,8 @@
     (case state
       {#source source #modules modules
        #envs   envs   #types   types   #host           host
-       #seed   seed   #eval? eval? #expected expected}
+       #seed   seed   #eval? eval? #expected expected
+       #cursor cursor}
       (some (: (-> (Env Text (, LuxVar Type)) (Maybe Type))
                (lambda [env]
                  (case env
@@ -2634,7 +2644,8 @@
   (let [[v-prefix v-name] name
         {#source source #modules modules
          #envs   envs   #types   types   #host           host
-         #seed   seed   #eval? eval? #expected expected} state]
+         #seed   seed   #eval? eval? #expected expected
+         #cursor cursor} state]
     (case (get v-prefix modules)
       #None
       #None
@@ -2686,7 +2697,8 @@
           _
           (let [{#source source #modules modules
                  #envs   envs   #types   types   #host           host
-                 #seed   seed   #eval? eval? #expected expected} state]
+                 #seed   seed   #eval? eval? #expected expected
+                 #cursor cursor} state]
             (#Left ($ text:++ "Unknown var: " (ident->text name) "\n\n" (show-envs envs)))))))))
 
 (def (use-field field-name type)
-- 
cgit v1.2.3