aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool
diff options
context:
space:
mode:
authorEduardo Julian2019-05-10 23:34:22 -0400
committerEduardo Julian2019-05-10 23:34:22 -0400
commit0ea5588551ae682c628f273bacb123fe0c1ed82c (patch)
tree9e001aac754896817edafeabec320afd2b210f9d /stdlib/source/lux/tool
parent30a237358ca0effc0aabca0a8fbc5ce81a91cb32 (diff)
Made the host-interop layer dependent on "lux/target/jvm/type".
Diffstat (limited to 'stdlib/source/lux/tool')
-rw-r--r--stdlib/source/lux/tool/compiler/phase/extension/analysis/jvm.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/extension/analysis/jvm.lux b/stdlib/source/lux/tool/compiler/phase/extension/analysis/jvm.lux
index 69e80d89f..28d4ff07c 100644
--- a/stdlib/source/lux/tool/compiler/phase/extension/analysis/jvm.lux
+++ b/stdlib/source/lux/tool/compiler/phase/extension/analysis/jvm.lux
@@ -128,13 +128,13 @@
(template [<name>]
[(exception: #export (<name> {class Text}
{method Text}
+ {arg-classes (List Text)}
{hints (List Method-Signature)})
(exception.report
["Class" class]
["Method" method]
- ["Hints" (|> hints
- (list@map (|>> product.left %type (format text.new-line text.tab)))
- (text.join-with ""))]))]
+ ["Arguments" (exception.enumerate %t arg-classes)]
+ ["Hints" (exception.enumerate %type (list@map product.left hints))]))]
[no-candidates]
[too-many-candidates]
@@ -1281,10 +1281,10 @@
(wrap method)
#.Nil
- (/////analysis.throw no-candidates [class-name method-name (list.search-all hint! candidates)])
+ (/////analysis.throw ..no-candidates [class-name method-name arg-classes (list.search-all hint! candidates)])
candidates
- (/////analysis.throw too-many-candidates [class-name method-name candidates]))))
+ (/////analysis.throw ..too-many-candidates [class-name method-name arg-classes candidates]))))
(def: constructor-method "<init>")
@@ -1306,10 +1306,10 @@
(wrap constructor)
#.Nil
- (/////analysis.throw no-candidates [class-name ..constructor-method (list.search-all hint! candidates)])
+ (/////analysis.throw ..no-candidates [class-name ..constructor-method arg-classes (list.search-all hint! candidates)])
candidates
- (/////analysis.throw too-many-candidates [class-name ..constructor-method candidates]))))
+ (/////analysis.throw ..too-many-candidates [class-name ..constructor-method arg-classes candidates]))))
(def: typed-input
(Parser [Text Code])