From cfbd2df41c369b763616c8859cc5a60bffb75416 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 16 Jul 2011 17:59:07 -0400 Subject: [PATCH] Fix internal error message. original commit: 25cdd87405e72bd2468d97f264fb8e3759aefe83 --- collects/typed-scheme/utils/tc-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/utils/tc-utils.rkt b/collects/typed-scheme/utils/tc-utils.rkt index e9edbf37..5793563e 100644 --- a/collects/typed-scheme/utils/tc-utils.rkt +++ b/collects/typed-scheme/utils/tc-utils.rkt @@ -139,7 +139,7 @@ don't depend on any other portion of the system (define (int-err msg . args) (raise (make-exn:fail:tc (string-append "Internal Typechecker Error: " (apply format msg args) - (format "\nwhile typechecking\n~aoriginally\n~a" + (format "\nwhile typechecking:\n~a\noriginally:\n~a" (syntax->datum (current-orig-stx)) (syntax->datum (locate-stx (current-orig-stx))))) (current-continuation-marks))))