newline is not an element of (scheme write)

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 05:59:03 -08:00
parent c67c81c1aa
commit d23f686485
1 changed files with 1 additions and 1 deletions

View File

@ -336,11 +336,11 @@ pic_init_port(pic_state *pic)
pic_defun(pic, "close-port", pic_port_close_port); pic_defun(pic, "close-port", pic_port_close_port);
pic_defun(pic, "close-input-port", pic_port_close_port); pic_defun(pic, "close-input-port", pic_port_close_port);
pic_defun(pic, "close-output-port", pic_port_close_port); pic_defun(pic, "close-output-port", pic_port_close_port);
pic_defun(pic, "newline", pic_port_newline);
DEFLIBRARY(pic, "(scheme write)") DEFLIBRARY(pic, "(scheme write)")
{ {
pic_defun(pic, "write", pic_port_write); pic_defun(pic, "write", pic_port_write);
pic_defun(pic, "newline", pic_port_newline);
} }
ENDLIBRARY(pic) ENDLIBRARY(pic)
} }