diff options
| author | Eduardo Julian | 2015-03-21 00:34:06 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-03-21 00:34:06 -0400 |
| commit | f8d9fae08d28cd4236c545798de48aba0aac028e (patch) | |
| tree | ef4c7c33ed865bbf89ebe40a0c3423d0604b18cb /src/lux/analyser/host.clj | |
| parent | 25be66a8a58b202284152d5a422d13fb81661abb (diff) | |
[2nd Super Refactoring That Breaks The System: Part 7]
- System works correctly once more.
Diffstat (limited to 'src/lux/analyser/host.clj')
| -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 5379b225e..34d3fa1bc 100644 --- a/src/lux/analyser/host.clj +++ b/src/lux/analyser/host.clj @@ -167,7 +167,7 @@ (return (&/|list (&/V "Statement" (&/V "jvm-class" (&/T $module ?name ?super-class =fields {}))))))) (defn analyse-jvm-interface [analyse ?name ?members] - (prn 'analyse-jvm-interface ?name ?members) + ;; (prn 'analyse-jvm-interface ?name ?members) (exec [=members (&/map% (fn [member] ;; (prn 'analyse-jvm-interface (&/show-ast member)) (matchv ::M/objects [member] @@ -185,7 +185,7 @@ [_] (fail "[Analyser Error] Invalid method signature!"))) ?members) - :let [_ (prn '=members =members) + :let [;; _ (prn '=members =members) =methods (into {} (for [[method [inputs output]] (&/->seq =members)] [method {:access :public :type [inputs output]}]))] |