diff options
| author | Eduardo Julian | 2016-05-22 00:55:49 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2016-05-22 00:55:49 -0400 |
| commit | 18ff8ef70aa422fc76244459f07a2cc4e81cc63e (patch) | |
| tree | c4e2b4caac9e41bff1e246ec452b382c99510bdd /src/lux/analyser/host.clj | |
| parent | aa4722d0c459a59ac896ef1b30ff0e141281d41c (diff) | |
- Added Tail-Recursion Optimization.
Diffstat (limited to '')
| -rw-r--r-- | src/lux/analyser/host.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj index c8fa72b5f..3703b6ec9 100644 --- a/src/lux/analyser/host.clj +++ b/src/lux/analyser/host.clj @@ -902,7 +902,7 @@ (defn ^:private analyse-jvm-interface [analyse compile-interface interface-decl supers =anns =methods] (|do [module &/get-module-name _ (compile-interface interface-decl supers =anns =methods) - :let [_ (println 'DEF (str module "." (&/|first interface-decl)))] + :let [_ (println 'INTERFACE (str module "." (&/|first interface-decl)))] _cursor &/cursor] (return (&/|list (&&/|meta &/$UnitT _cursor (&&/$tuple (&/|list))))))) @@ -921,7 +921,7 @@ _ (check-method-completion all-supers =methods) _ (compile-class class-decl super-class interfaces =inheritance-modifier =anns =fields =methods &/$Nil &/$None) _ &/pop-dummy-name - :let [_ (println 'DEF full-name)] + :let [_ (println 'CLASS full-name)] _cursor &/cursor] (return (&/|list (&&/|meta &/$UnitT _cursor (&&/$tuple (&/|list)))))))) |