fix mistake

(that was introduced for debugging purposes)
This commit is contained in:
Robby Findler 2014-07-16 09:54:16 -05:00
parent d6f9ebc9a4
commit 5a6731a017

View File

@ -405,7 +405,7 @@ profile todo:
(define to-show-later (list-ref x 1))
(write-string line (current-error-port) 0 (- (string-length line) 4))
(write-special (new ellipsis-snip% [extra to-show-later]) (current-error-port))
(display "!" (current-error-port))])))
(display ":" (current-error-port))])))
(define (display-error-message exn msg)
(cond