Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not have (write) automatically output a newline

Browse source
This commit is contained in:
Justin Ethier 2016-03-28 21:53:38 -04:00
parent 9f4991724e
commit 9052a0d2bd
3 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
icyc.scm
View file

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

2
runtime.c
View file

@ -711,7 +711,7 @@ static object _Cyc_write(object x, FILE *port)
object Cyc_write(object x, FILE *port) object Cyc_write(object x, FILE *port)
{object y = _Cyc_write(x, port); {object y = _Cyc_write(x, port);
fprintf(port, "\n"); //fprintf(port, "\n");
return y;} return y;}
object Cyc_write_char(void *data, object c, object port) object Cyc_write_char(void *data, object c, object port)

3
tests/unit-tests.scm
View file

@ -361,5 +361,6 @@
; TODO: use display, output without surrounding quotes ; 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)
;; ;;