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

first argument of get-output-string is optinoal

This commit is contained in:
Yuichi Nishiwaki 2014-02-09 02:41:20 +09:00
parent a666951f21
commit 3d0657074f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/port.c
View File

@ -262,11 +262,11 @@ pic_port_open_output_string(pic_state *pic)
static pic_value static pic_value
pic_port_get_output_string(pic_state *pic) pic_port_get_output_string(pic_state *pic)
{ {
struct pic_port *port; struct pic_port *port = pic_stdout(pic);;
long endpos; long endpos;
char *buf; char *buf;
pic_get_args(pic, "p", &port); pic_get_args(pic, "|p", &port);
assert_port_profile(port, PIC_PORT_OUT | PIC_PORT_TEXT, PIC_PORT_OPEN, "read-char"); assert_port_profile(port, PIC_PORT_OUT | PIC_PORT_TEXT, PIC_PORT_OPEN, "read-char");