[bugfix] print should print a newline to given port

2014-07-29 15:56:50 +09:00 · 2014-07-29 15:56:50 +09:00 · 1a891036f2
parent a15ec868ba
commit 1a891036f2
1 changed files with 4 additions and 3 deletions
--- a/piclib/picrin/repl.scm
+++ b/piclib/picrin/repl.scm
@ -15,9 +15,10 @@
              (string-append line (loop (read-line))))))))

  (define (print obj . port)
-    (write obj (if (null? port) (current-output-port) (car port)))
-    (newline)
-    obj)
+    (let ((port (if (null? port) (current-output-port) (car port))))
+      (write obj port)
+      (newline port)
+      obj))

  (define (print-help)
    (display "picrin scheme\n")