diff options
Diffstat (limited to 'stdlib/source/library/lux/target/jvm/attribute.lux')
| -rw-r--r-- | stdlib/source/library/lux/target/jvm/attribute.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/target/jvm/attribute.lux b/stdlib/source/library/lux/target/jvm/attribute.lux index 3ecaa7321..3167f2516 100644 --- a/stdlib/source/library/lux/target/jvm/attribute.lux +++ b/stdlib/source/library/lux/target/jvm/attribute.lux @@ -10,7 +10,7 @@ ["[0]" sum] ["[0]" product] ["[0]" binary - ["[1]F" \\format (.only Writer)]]] + ["[1]F" \\format (.only Format)]]] [macro ["^" pattern]] [math @@ -43,14 +43,14 @@ //unsigned.equivalence Equivalence<about>)) -(def (info_writer writer) +(def (info_format format) (All (_ about) - (-> (Writer about) - (Writer (Info about)))) + (-> (Format about) + (Format (Info about)))) (function (_ [name length info]) - (let [[nameS nameT] (//index.writer name) - [lengthS lengthT] (//unsigned.writer/4 length) - [infoS infoT] (writer info)] + (let [[nameS nameT] (//index.format name) + [lengthS lengthT] (//unsigned.format/4 length) + [infoS infoT] (format info)] [(all n.+ nameS lengthS infoS) (|>> nameT lengthT infoT)]))) @@ -136,14 +136,14 @@ [it (|> it //signature.signature //pool.utf8)] (at ! each (signature' it) (//pool.utf8 "Signature")))) -(def .public (writer it) - (Writer Attribute) +(def .public (format it) + (Format Attribute) (case it {#Constant it} - ((info_writer /constant.writer) it) + ((info_format /constant.format) it) {#Code it} - ((info_writer (/code.writer writer)) it) + ((info_format (/code.format format)) it) {#Signature it} - ((info_writer //index.writer) it))) + ((info_format //index.format) it))) |