haskal
/
crossfire
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

make sure to flush-output before fsync

This commit is contained in:
xenia 2020-11-28 17:10:04 -05:00
parent 69ae22f678
commit 7183bcad33
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
crossfire/static-support.rkt
View File

@ -115,6 +115,7 @@
(fsync-call fd)))) (fsync-call fd))))
(define (port-fsync port) (define (port-fsync port)
(flush-output port)
(match (system-type 'os) (match (system-type 'os)
['unix (port-fsync/unix port)] ['unix (port-fsync/unix port)]
[x (error "don't know how to fsync on" x)])) [x (error "don't know how to fsync on" x)]))