Merge pull request #157 from KeenS/hotfix

port made by `open-input-bytevector` have no contents
This commit is contained in:
Yuichi Nishiwaki 2014-06-29 14:07:58 +09:00
commit 2c2ab07a13
1 changed files with 2 additions and 0 deletions

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);
} }