sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Call for_serial/2

This commit is contained in:
Simon Forman 2019-11-07 07:43:21 -08:00
parent 22b34aba05
commit 99f9534a10
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
thun/compiler.pl
View File

@ -668,7 +668,8 @@ for_serial(Binary, Ser) :-
write_binary(Name, Binary) :- write_binary(Name, Binary) :-
open(Name, write, Stream, [type(binary)]), open(Name, write, Stream, [type(binary)]),
phrase(write_binary_(Stream), Binary), for_serial(Binary, Ser),
phrase(write_binary_(Stream), Ser),
close(Stream). close(Stream).
write_binary_(Stream) --> write_binary_(Stream) -->