aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/target/jvm/constant/pool.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/target/jvm/constant/pool.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/target/jvm/constant/pool.lux b/stdlib/source/lux/target/jvm/constant/pool.lux
index 8fbf5550e..c267eb7f4 100644
--- a/stdlib/source/lux/target/jvm/constant/pool.lux
+++ b/stdlib/source/lux/target/jvm/constant/pool.lux
@@ -58,14 +58,14 @@
(exception: #export (invalid-index {index (Index Any)}
{maximum Nat})
(exception.report
- ["Index" (|> index !raw-index %.%n)]
- ["Maximum" (%.%n maximum)]))
+ ["Index" (|> index !raw-index %.nat)]
+ ["Maximum" (%.nat maximum)]))
(exception: #export (invalid-constant {index (Index Any)}
{tag Name})
(exception.report
- ["Index" (|> index !raw-index %.%n)]
- ["Expected tag" (%.%name tag)]))
+ ["Index" (|> index !raw-index %.nat)]
+ ["Expected tag" (%.name tag)]))
(template: (!fetch <tag> <index>)
(function (_ pool)
@@ -84,7 +84,7 @@
(exception: #export (cannot-find {tag Name} {value Text})
(exception.report
- ["Expected tag" (%.%name tag)]
+ ["Expected tag" (%.name tag)]
["Value" value]))
(template: (!find <tag> <=> <%> <expected>)
@@ -127,7 +127,7 @@
(def: #export (find-utf8 reference)
(Finder UTF8)
- (!find #//.UTF8 text;= %.%t reference))
+ (!find #//.UTF8 text;= %.text reference))
(def: (class' value)
(Adder Class)