From d23f6864859b1a425e38c03b7158ba61420485d1 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 10 Dec 2013 05:59:03 -0800
Subject: [PATCH] newline is not an element of (scheme write)

---
 src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/port.c b/src/port.c
index 312a57c1..32b4294d 100644
--- a/src/port.c
+++ b/src/port.c
@@ -336,11 +336,11 @@ pic_init_port(pic_state *pic)
   pic_defun(pic, "close-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, "newline", pic_port_newline);
 
   DEFLIBRARY(pic, "(scheme write)")
   {
     pic_defun(pic, "write", pic_port_write);
-    pic_defun(pic, "newline", pic_port_newline);
   }
   ENDLIBRARY(pic)
 }