From 9052a0d2bd82c5d84e9d725224667cf7b53d3725 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 28 Mar 2016 21:53:38 -0400
Subject: [PATCH] Do not have (write) automatically output a newline

---
 icyc.scm             | 1 +
 runtime.c            | 2 +-
 tests/unit-tests.scm | 3 ++-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/icyc.scm b/icyc.scm
index 5f9fff28..326f63af 100644
--- a/icyc.scm
+++ b/icyc.scm
@@ -50,6 +50,7 @@
     (cond
       ((not (eof-object? c))
        (write c)
+       (newline)
        (repl:next-line))
       (else 
         (display "\n")
diff --git a/runtime.c b/runtime.c
index 17ed42d0..338b5366 100644
--- a/runtime.c
+++ b/runtime.c
@@ -711,7 +711,7 @@ static object _Cyc_write(object x, FILE *port)
 
 object Cyc_write(object x, FILE *port)
 {object y = _Cyc_write(x, port);
- fprintf(port, "\n");
+ //fprintf(port, "\n");
  return y;}
 
 object Cyc_write_char(void *data, object c, object port) 
diff --git a/tests/unit-tests.scm b/tests/unit-tests.scm
index 7b6d79aa..856a10b2 100644
--- a/tests/unit-tests.scm
+++ b/tests/unit-tests.scm
@@ -361,5 +361,6 @@
 
 
 ; TODO: use display, output without surrounding quotes
-(write (list *num-passed* " tests passed with no errors"))
+(display (list *num-passed* "tests passed with no errors"))
+(newline)
 ;;