From 99f9534a1013016755db7b4c379a40cc7ae16408 Mon Sep 17 00:00:00 2001
From: Simon Forman <sforman@hushmail.com>
Date: Thu, 7 Nov 2019 07:43:21 -0800
Subject: [PATCH] Call for_serial/2

---
 thun/compiler.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/thun/compiler.pl b/thun/compiler.pl
index eb4746d..277392e 100644
--- a/thun/compiler.pl
+++ b/thun/compiler.pl
@@ -668,7 +668,8 @@ for_serial(Binary, Ser) :-
 
 write_binary(Name, Binary) :-
     open(Name, write, Stream, [type(binary)]),
-    phrase(write_binary_(Stream), Binary),
+    for_serial(Binary, Ser),
+    phrase(write_binary_(Stream), Ser),
     close(Stream).
 
 write_binary_(Stream) -->