add location info to the match error msg (#1430)

2016-08-24 13:51:23 -04:00 · 2016-08-24 13:51:23 -04:00 · 753d97335c
commit 753d97335c
parent 2e5b4a6515
1 changed files with 7 additions and 4 deletions
--- a/racket/collects/racket/match/runtime.rkt
+++ b/racket/collects/racket/match/runtime.rkt
@ -22,10 +22,13 @@


 (define (match:error val srclocs form-name)
-  (raise (make-exn:misc:match (format "~a: no matching clause for ~e" form-name val)
-                              (current-continuation-marks)
-                              val
-                              srclocs)))
+  (raise (make-exn:misc:match
+          (format "~a: no matching clause for ~e\n  location: ~a"
+                  form-name val
+                  (srcloc->string (car srclocs)))
+          (current-continuation-marks)
+          val
+          srclocs)))

 (define-syntax-parameter fail
  (lambda (stx)