aboutsummaryrefslogtreecommitdiff
path: root/src/lux/analyser/host.clj
diff options
context:
space:
mode:
authorEduardo Julian2015-12-06 19:35:11 -0400
committerEduardo Julian2015-12-06 19:35:11 -0400
commitf317f31851f784b8846ec182377b9fd1ad3f0659 (patch)
tree3f31e6eb121221a34e61293d202e61d5129cbb5b /src/lux/analyser/host.clj
parent31b986e80335bf262997b97e3d22486a7b91cc4b (diff)
- Removed modifiers from field/method declaration.
Diffstat (limited to 'src/lux/analyser/host.clj')
-rw-r--r--src/lux/analyser/host.clj19
1 files changed, 4 insertions, 15 deletions
diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj
index a119ba981..44ebc8d1d 100644
--- a/src/lux/analyser/host.clj
+++ b/src/lux/analyser/host.clj
@@ -528,7 +528,7 @@
(|do [:let [[?cname ?cparams] class-decl
class-type (&/V &/$GenericClass (&/T ?cname &/Nil$))
[?decl ?body] method
- [_ _ _ ?gvars ?exs ?inputs ?output] ?decl
+ [_ _ ?gvars ?exs ?inputs ?output] ?decl
all-gvars (&/|++ ?cparams ?gvars)]
gvar-env (&/map% (fn [gvar]
(|do [ex &type/existential]
@@ -554,7 +554,7 @@
(|do [abstract-methods (mandatory-methods supers)
:let [methods-map (&/fold (fn [mmap mentry]
(prn 'methods-map (count mentry) mentry)
- (|let [[[=name =modifiers =anns =gvars =exceptions =inputs =output] _] mentry]
+ (|let [[[=name =anns =gvars =exceptions =inputs =output] _] mentry]
(assoc mmap =name mentry)))
{}
methods)
@@ -562,7 +562,7 @@
(|let [[am-name am-inputs] abs-meth]
(or missing
(if-let [meth-struct (get methods-map am-name)]
- (|let [[[=name =modifiers =anns =gvars =exceptions =inputs =output] _] meth-struct]
+ (|let [[[=name =anns =gvars =exceptions =inputs =output] _] meth-struct]
(if (and (= (&/|length =inputs) (&/|length am-inputs))
(&/fold2 (fn [prev mi ai]
(|let [[iname itype] mi]
@@ -604,17 +604,7 @@
[name [_ (&&/$captured _ _ source)]]
source))
-(let [captured-slot-modifier {:visibility "private"
- :static? false
- :final? false
- :abstract? false
- :concurrency nil}
- default-<init> (&/T "<init>"
- {:visibility "public"
- :static? false
- :final? false
- :abstract? false
- :concurrency nil}
+(let [default-<init> (&/T "<init>"
(&/|list)
(&/|list)
(&/|list)
@@ -645,7 +635,6 @@
=captured &&env/captured-vars
:let [=fields (&/|map (fn [^objects idx+capt]
(&/T (str &c!base/closure-prefix (aget idx+capt 0))
- captured-slot-modifier
(&/|list)
captured-slot-type))
(&/enumerate =captured))]