diff options
| author | Eduardo Julian | 2015-03-20 23:52:07 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-03-20 23:52:07 -0400 |
| commit | 25be66a8a58b202284152d5a422d13fb81661abb (patch) | |
| tree | d122524b87d875560064e463de9c45d26b923415 /src/lux/analyser/host.clj | |
| parent | b2f4b64467d49904509fd5e87735536f846121b2 (diff) | |
[2nd Super Refactoring That Breaks The System: Part 6]
- Corrected more bugs in the system.
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 6fff76590..5379b225e 100644 --- a/src/lux/analyser/host.clj +++ b/src/lux/analyser/host.clj @@ -99,7 +99,7 @@ (defn analyse-jvm-invokestatic [analyse ?class ?method ?classes ?args] (exec [=class (&host/full-class-name ?class) =classes (&/map% &host/extract-jvm-param ?classes) - =return (&host/lookup-virtual-method =class ?method =classes) + =return (&host/lookup-static-method =class ?method =classes) =args (&/flat-map% analyse ?args)] (return (&/|list (&/V "Expression" (&/T (&/V "jvm-invokestatic" (&/T =class ?method =classes =args)) =return)))))) @@ -109,7 +109,7 @@ ;; :let [_ (prn 'analyse-jvm-invokevirtual/=class =class)] =classes (&/map% &host/extract-jvm-param ?classes) ;; :let [_ (prn 'analyse-jvm-invokevirtual/=classes =classes)] - [=method-args =return] (&host/lookup-virtual-method =class ?method =classes) + =return (&host/lookup-virtual-method =class ?method =classes) ;; :let [_ (prn 'analyse-jvm-invokevirtual/=return =return)] =object (&&/analyse-1 analyse ?object) ;; :let [_ (prn 'analyse-jvm-invokevirtual/=object =object)] |