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;
|
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);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue