diff options
| author | Eduardo Julian | 2015-09-16 18:54:38 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-09-16 18:54:38 -0400 |
| commit | 6a84a06475463ffdaf3d6512696c7577afc8fed1 (patch) | |
| tree | 5e4e92b8bb0372e2fa22b6a7d193a779c3c86f1d /source/lux/meta/lux.lux | |
| parent | d531cab599d269eecd95f6a83285e933535e9c86 (diff) | |
- Now the file-name & the line numbers are stored inside the .class files for debug info.
Diffstat (limited to 'source/lux/meta/lux.lux')
| -rw-r--r-- | source/lux/meta/lux.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/source/lux/meta/lux.lux b/source/lux/meta/lux.lux index b9e07083f..650e67133 100644 --- a/source/lux/meta/lux.lux +++ b/source/lux/meta/lux.lux @@ -236,13 +236,13 @@ #;envs envs #;type-vars types #;host host #;seed seed #;eval? eval? #;expected expected #;cursor cursor} - (some (: (-> (Env Text (, LuxVar Type)) (Maybe Type)) + (some (: (-> (Env Text (Meta (, Type Cursor) Analysis)) (Maybe Type)) (lambda [env] (case env {#;name _ #;inner-closures _ #;locals {#;counter _ #;mappings locals} #;closure {#;counter _ #;mappings closure}} - (try-both (some (: (-> (, Text (, LuxVar Type)) (Maybe Type)) + (try-both (some (: (-> (, Text (Meta (, Type Cursor) Analysis)) (Maybe Type)) (lambda [binding] - (let [[bname [_ type]] binding] + (let [[bname [[type _] _]] binding] (if (text:= name bname) (#;Some type) #;None))))) |