conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bugfix] print should print a newline to given port

This commit is contained in:
Yuichi Nishiwaki 2014-07-29 15:56:50 +09:00
parent a15ec868ba
commit 1a891036f2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
piclib/picrin/repl.scm
View File

@ -15,9 +15,10 @@
(string-append line (loop (read-line)))))))) (string-append line (loop (read-line))))))))
(define (print obj . port) (define (print obj . port)
(write obj (if (null? port) (current-output-port) (car port))) (let ((port (if (null? port) (current-output-port) (car port))))
(newline) (write obj port)
obj) (newline port)
obj))
(define (print-help) (define (print-help)
(display "picrin scheme\n") (display "picrin scheme\n")