Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Open both input and output ports to the same fd before using either,

Browse source 
to prevent one closing the fd.
This commit is contained in:
Alex Shinn 2015-05-03 00:17:34 +09:00
parent 3cd5375c28
commit 7cea27ec20
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/snow/fort.scm
View file

@ -144,9 +144,10 @@
(call-with-locked-file
path
(lambda (fd)
(let* ((str (port->string (open-input-file-descriptor fd)))
(res (proc str))
(out (open-output-file-descriptor fd)))
(let* ((in (open-input-file-descriptor fd))
(out (open-output-file-descriptor fd))
(str (port->string in))
(res (proc str)))
(set-file-position! out seek/set 0)
(display res out)
(file-truncate out (string-size res))