Do not have (write) automatically output a newline

icyc.scm

@@ -50,6 +50,7 @@
     (cond
       ((not (eof-object? c))
        (write c)
+       (newline)
        (repl:next-line))
       (else 
         (display "\n")

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) 

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)
 ;;