From a8a46ddeef1793470d80e8c4d652c3d8e72cfe3b Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Wed, 18 Sep 2013 21:42:28 -0700 Subject: [PATCH] Fix error message construction. original commit: 98c573557eb4cfe8f88aa225043669448d248d19 --- .../typed-racket-lib/typed-racket/optimizer/float-complex.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt index 5b455d77..84397118 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt @@ -333,7 +333,7 @@ ((real-binding) (exact->inexact (real-part e*))) ((imag-binding) (exact->inexact (imag-part e*))))) (pattern e:expr - #:do [(error (format "non exhaustive pattern match" #'e))] + #:do [(error (format "non exhaustive pattern match ~a" #'e))] #:with (bindings ...) (list) #:with real-binding #f #:with imag-binding #f))