conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ensure flush contents into the port made in `open-input-bytevector`

This commit is contained in:
Sunrim KIM (keen) 2014-06-29 13:46:46 +09:00
parent 5e12794467
commit 8d9b7e9bf3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/port.c
View File

@ -329,6 +329,8 @@ pic_port_open_input_blob(pic_state *pic)
port->status = PIC_PORT_OPEN; port->status = PIC_PORT_OPEN;
xfwrite(blob->data, 1, blob->len, port->file); xfwrite(blob->data, 1, blob->len, port->file);
xfflush(port->file);
xrewind(port->file);
return pic_obj_value(port); return pic_obj_value(port);
} }