@@ -1122,7 +1122,7 @@ class hxb_reader
| 65 ->
let m = self#read_metadata_entry in
let e1 = loop () in
- TMeta (m,e1),(Some e1.etype)
+ TMeta (m,e1),None
(* calls 70 - 79 *)
| 70 ->
@@ -1488,7 +1488,7 @@ module HxbWriter = struct
Chunk.write_u8 writer.chunk 65;
write_metadata_entry writer m;
loop e1;
- false;
+ true;
(* branching 80-89 *)
| TIf(e1,e2,None) ->
Chunk.write_u8 writer.chunk 80;