adding an extra newline when interrupting from the repl

This commit is contained in:
Alex Shinn 2012-07-21 17:32:03 +09:00
parent 275bf31b13
commit dccc398621

View file

@ -269,7 +269,7 @@
(with-signal-handler
signal/interrupt
(lambda (n)
(display "Interrupt\n" (current-error-port))
(display "\nInterrupt\n" (current-error-port))
(thread-terminate! thread))
(lambda () (thread-join! (thread-start! thread))))))
;; Loop whether there were errors or interrupts or not.