Merge pull request #157 from KeenS/hotfix
port made by `open-input-bytevector` have no contents
This commit is contained in:
commit
2c2ab07a13
|
@ -329,6 +329,8 @@ pic_port_open_input_blob(pic_state *pic)
|
|||
port->status = PIC_PORT_OPEN;
|
||||
|
||||
xfwrite(blob->data, 1, blob->len, port->file);
|
||||
xfflush(port->file);
|
||||
xrewind(port->file);
|
||||
|
||||
return pic_obj_value(port);
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue