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 (with-signal-handler
signal/interrupt signal/interrupt
(lambda (n) (lambda (n)
(display "Interrupt\n" (current-error-port)) (display "\nInterrupt\n" (current-error-port))
(thread-terminate! thread)) (thread-terminate! thread))
(lambda () (thread-join! (thread-start! thread)))))) (lambda () (thread-join! (thread-start! thread))))))
;; Loop whether there were errors or interrupts or not. ;; Loop whether there were errors or interrupts or not.