From 753d97335ce1fe0ddf49c01e3cefe5a688267da1 Mon Sep 17 00:00:00 2001 From: Andrew Kent Date: Wed, 24 Aug 2016 13:51:23 -0400 Subject: [PATCH] add location info to the match error msg (#1430) --- racket/collects/racket/match/runtime.rkt | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/racket/collects/racket/match/runtime.rkt b/racket/collects/racket/match/runtime.rkt index f059f96f34..35cb898473 100644 --- 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)