diff options
author | Eduardo Julian | 2015-08-05 00:05:04 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-08-05 00:05:04 -0400 |
commit | f855c20a7af7428b638e4c2a3c4c654bd01576dc (patch) | |
tree | 3f82f29dac5cdab1cc5c6b5ce9d85474ee04d2a5 /source/lux/meta/lux.lux | |
parent | 691b3e3174e01ed7d859f58442371328aefcfad4 (diff) |
- The compiler now stores the cursor of the last analysed AST in order to avoid the problem of error ocurring "nowhere" (at ["" -1 -1]).
Diffstat (limited to '')
-rw-r--r-- | source/lux/meta/lux.lux | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/source/lux/meta/lux.lux b/source/lux/meta/lux.lux index 26513ed81..4d6c15bde 100644 --- a/source/lux/meta/lux.lux +++ b/source/lux/meta/lux.lux @@ -255,7 +255,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 @@ -275,7 +276,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 @@ -310,6 +312,7 @@ _ (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)))))))) )) |