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

use the new feature of pic_get_args (port specifier)

This commit is contained in:
Yuichi Nishiwaki 2014-01-13 00:50:18 +09:00
parent d9911cabc8
commit 4a7a32829d
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/port.c
View File

@ -330,15 +330,9 @@ pic_port_eof_object(pic_state *pic)
static pic_value
pic_port_close_port(pic_state *pic)
{
pic_value v;
struct pic_port *port;
pic_get_args(pic, "o", &v);
if (! pic_port_p(v)) {
pic_error(pic, "close-port: expected port");
}
port = pic_port_ptr(v);
pic_get_args(pic, "p", &port);
if (fclose(port->file) == EOF) {
pic_error(pic, "close-port: failure");