aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux')
-rw-r--r--stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux22
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
index 999331c91..49d9df8ca 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
@@ -1351,8 +1351,8 @@
_
{.#None})))]
- [pass! #Pass]
- [hint! #Hint]
+ [pass #Pass]
+ [hint #Hint]
)
(template [<name> <type> <method>]
@@ -1426,12 +1426,12 @@
(|>> {#Pass})
(|>> {#Hint}))
(method_signature method_style method)))))))]
- (case (list.all pass! candidates)
+ (case (list.all pass candidates)
{.#Item method {.#End}}
(in method)
{.#End}
- (/////analysis.except ..no_candidates [actual_class_tvars class_name method_name actual_method_tvars inputsJT (list.all hint! candidates)])
+ (/////analysis.except ..no_candidates [actual_class_tvars class_name method_name actual_method_tvars inputsJT (list.all hint candidates)])
{.#Item method alternatives}
(if allow_inheritance?
@@ -1460,12 +1460,12 @@
(|>> {#Pass})
(|>> {#Hint}))
(constructor_signature constructor))))))]
- (case (list.all pass! candidates)
+ (case (list.all pass candidates)
{.#Item constructor {.#End}}
(in constructor)
{.#End}
- (/////analysis.except ..no_candidates [actual_class_tvars class_name ..constructor_method actual_method_tvars inputsJT (list.all hint! candidates)])
+ (/////analysis.except ..no_candidates [actual_class_tvars class_name ..constructor_method actual_method_tvars inputsJT (list.all hint candidates)])
candidates
(/////analysis.except ..too_many_candidates [actual_class_tvars class_name ..constructor_method actual_method_tvars inputsJT candidates]))))
@@ -1807,7 +1807,7 @@
(def: .public abstract_method_definition
(Parser (Abstract_Method Code))
(<| <code>.form
- (<>.after (<code>.text! ..abstract_tag))
+ (<>.after (<code>.this_text ..abstract_tag))
($_ <>.and
<code>.text
..visibility
@@ -1869,7 +1869,7 @@
(def: .public constructor_definition
(Parser (Constructor Code))
(<| <code>.form
- (<>.after (<code>.text! ..constructor_tag))
+ (<>.after (<code>.this_text ..constructor_tag))
($_ <>.and
..visibility
<code>.bit
@@ -1949,7 +1949,7 @@
(def: .public virtual_method_definition
(Parser (Virtual_Method Code))
(<| <code>.form
- (<>.after (<code>.text! ..virtual_tag))
+ (<>.after (<code>.this_text ..virtual_tag))
($_ <>.and
<code>.text
..visibility
@@ -2047,7 +2047,7 @@
(def: .public static_method_definition
(Parser (Static_Method Code))
(<| <code>.form
- (<>.after (<code>.text! ..static_tag))
+ (<>.after (<code>.this_text ..static_tag))
($_ <>.and
<code>.text
..visibility
@@ -2121,7 +2121,7 @@
(def: .public overriden_method_definition
(Parser (Overriden_Method Code))
(<| <code>.form
- (<>.after (<code>.text! ..overriden_tag))
+ (<>.after (<code>.this_text ..overriden_tag))
($_ <>.and
..class
<code>.text