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

View File

@ -262,11 +262,11 @@ pic_port_open_output_string(pic_state *pic)
static pic_value
pic_port_get_output_string(pic_state *pic)
{
struct pic_port *port;
struct pic_port *port = pic_stdout(pic);;
long endpos;
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");