diff options
| author | Eduardo Julian | 2016-04-21 02:15:21 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2016-04-21 02:15:21 -0400 |
| commit | 067c48feb464475cfa428b0c048f6d618a2b30e6 (patch) | |
| tree | c965bbdb21386d2e97e07ad4ec0b49dfdad1b10b /src/lux/analyser/host.clj | |
| parent | 674070bfe812b1aed6d83760f83a5d07a8d04060 (diff) | |
- Fixed a bug when lexing multi-line text.
- Made some minor refactorings.
Diffstat (limited to 'src/lux/analyser/host.clj')
| -rw-r--r-- | src/lux/analyser/host.clj | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj index 20028441c..55d534f96 100644 --- a/src/lux/analyser/host.clj +++ b/src/lux/analyser/host.clj @@ -304,6 +304,7 @@ [gret exceptions parent-gvars gvars gargs] (if (= "<init>" method) (return (&/T [Void/TYPE &/$Nil &/$Nil &/$Nil &/$Nil])) (&host/lookup-virtual-method class-loader class method classes)) + ;; :let [_ (prn '<name> 0 gret)] _ (ensure-catching exceptions) =object (&&/analyse-1+ analyse object) [sub-class sub-params] (ensure-object (&&/expr-type* =object)) @@ -313,6 +314,8 @@ parent-gvars super-params*)] [output-type =args] (analyse-method-call-helper analyse gret gtype-env gvars gargs args) + ;; :let [_ (prn '<name> 1 (&type/show-type output-type))] + ;; :let [_ (prn '<name> 2 (&type/show-type (as-otype+ output-type)))] _ (&type/check exo-type (as-otype+ output-type)) _cursor &/cursor] (return (&/|list (&&/|meta exo-type _cursor |