Fix error message construction.

This commit is contained in:
Eric Dobson 2013-09-18 21:42:28 -07:00
parent c162a83c69
commit 98c573557e

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