Fix error message construction.

original commit: 98c573557eb4cfe8f88aa225043669448d248d19
This commit is contained in:
Eric Dobson 2013-09-18 21:42:28 -07:00
parent d771ecdd8b
commit a8a46ddeef

View File

@ -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))