From 4185f741da89db237ee68920cb155d64d2fac356 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 21 Jun 2019 02:28:36 -0400
Subject: Separated reading and writing binary data (lumping them together was
 a bad idea in the first place).

---
 .../lux/target/jvm/attribute/code/exception.lux    | 26 ++++++++++++++++------
 1 file changed, 19 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/lux/target/jvm/attribute/code/exception.lux')

diff --git a/stdlib/source/lux/target/jvm/attribute/code/exception.lux b/stdlib/source/lux/target/jvm/attribute/code/exception.lux
index c1f4bf581..6f6b8a0be 100644
--- a/stdlib/source/lux/target/jvm/attribute/code/exception.lux
+++ b/stdlib/source/lux/target/jvm/attribute/code/exception.lux
@@ -2,9 +2,12 @@
   [lux #*
    [abstract
     ["." equivalence (#+ Equivalence)]]
+   [control
+    ["<>" parser ("#@." functor)
+     ["<2>" binary (#+ Parser)]]]
    [data
     [format
-     [".F" binary (#+ Format)]]]]
+     [".F" binary (#+ Writer)]]]]
   ["." // #_
    ["#." label (#+ Label)]
    ["//#" /// #_
@@ -42,11 +45,20 @@
       ////unsigned.u2-bytes
       ))
 
-(def: #export format
-  (Format Exception)
+(def: #export parser
+  (Parser Exception)
+  ($_ <>.and
+      //label.parser
+      //label.parser
+      //label.parser
+      ////index.parser
+      ))
+
+(def: #export writer
+  (Writer Exception)
   ($_ binaryF.and
-      //label.format
-      //label.format
-      //label.format
-      ////index.format
+      //label.writer
+      //label.writer
+      //label.writer
+      ////index.writer
       ))
-- 
cgit v1.2.3