aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/target/jvm/attribute/code.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/target/jvm/attribute/code.lux')
-rw-r--r--stdlib/source/lux/target/jvm/attribute/code.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/target/jvm/attribute/code.lux b/stdlib/source/lux/target/jvm/attribute/code.lux
index 3a9629c1f..012c25809 100644
--- a/stdlib/source/lux/target/jvm/attribute/code.lux
+++ b/stdlib/source/lux/target/jvm/attribute/code.lux
@@ -8,9 +8,9 @@
[number
["n" nat]]
[format
- [".F" binary (#+ Writer) ("#@." monoid)]]
+ [".F" binary (#+ Writer) ("#//." monoid)]]
[collection
- ["." row (#+ Row) ("#@." functor fold)]]]]
+ ["." row (#+ Row) ("#//." functor fold)]]]]
["." /// #_
[bytecode
[environment
@@ -48,8 +48,8 @@
## attribute_info attributes[attributes_count];
(|> code
(get@ #attributes)
- (row@map length)
- (row@fold n.+ 0))))
+ (row//map length)
+ (row//fold n.+ 0))))
(def: #export (equivalence attribute-equivalence)
(All [attribute]
@@ -64,7 +64,7 @@
## https://docs.oracle.com/javase/specs/jvms/se8/html/jvms-4.html#jvms-4.7.3
(def: #export (writer writer code)
(All [Attribute] (-> (Writer Attribute) (Writer (Code Attribute))))
- ($_ binaryF@compose
+ ($_ binaryF//compose
## u2 max_stack;
## u2 max_locals;
(///limit.writer (get@ #limit code))