aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorEduardo Julian2015-09-14 23:37:10 -0400
committerEduardo Julian2015-09-14 23:37:10 -0400
commitd2a4aac2226b5cca59be236d3228fe5e5b17b8de (patch)
tree72f835e15e22b89941c95717eb34bf525dd211ab /src
parent8a67a7e51b3875c3ebba4e8d0acbd275aaa2c356 (diff)
- Renamed "this" to "_jvm_this".
- Movied lux/data/io to lux/codata/io.
Diffstat (limited to '')
-rw-r--r--src/lux/analyser/base.clj2
-rw-r--r--src/lux/analyser/host.clj2
-rw-r--r--src/lux/analyser/lux.clj7
3 files changed, 6 insertions, 5 deletions
diff --git a/src/lux/analyser/base.clj b/src/lux/analyser/base.clj
index 8df7f23b2..b12425ac7 100644
--- a/src/lux/analyser/base.clj
+++ b/src/lux/analyser/base.clj
@@ -155,6 +155,8 @@
(|let [[_ type] syntax+]
type))
+(def jvm-this "_jvm_this")
+
(defn cap-1 [action]
(|do [result action]
(|case result
diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj
index f6963d8bf..681f22168 100644
--- a/src/lux/analyser/host.clj
+++ b/src/lux/analyser/host.clj
@@ -411,7 +411,7 @@
(if (= "void" method-output)
(&&/analyse-1+ analyse method-body)
(&&/analyse-1 analyse (&type/Data$ (as-otype method-output) &/Nil$) method-body))
- (&/|reverse (&/Cons$ (&/T "this" owner-class)
+ (&/|reverse (&/Cons$ (&/T &&/jvm-this owner-class)
=method-inputs)))]
(return {:name method-name
:modifiers =method-modifiers
diff --git a/src/lux/analyser/lux.clj b/src/lux/analyser/lux.clj
index 3de4db89f..6546990e6 100644
--- a/src/lux/analyser/lux.clj
+++ b/src/lux/analyser/lux.clj
@@ -275,10 +275,9 @@
endo-type))))
state)
- [_]
- (do ;; (prn 'analyse-symbol/_2.1.2 ?module name name)
- (fail* "[Analyser Error] Can't have anything other than a global def in the global environment."))))
- (fail* "_{_ analyse-symbol _}_")))
+ _
+ (fail* "[Analyser Error] Can't have anything other than a global def in the global environment.")))
+ (fail* "")))
(&/$Cons top-outer _)
(do ;; (prn 'analyse-symbol/_3 ?module name)