From 97454b6e55a8a80a818aa1e8d4543fc9d376cc20 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 28 Nov 2012 13:16:58 -0600 Subject: [PATCH] guard use of exn-message closes PR 13316 --- collects/drracket/private/expanding-place.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/expanding-place.rkt b/collects/drracket/private/expanding-place.rkt index 7dc32a6401..e293ad72e7 100644 --- a/collects/drracket/private/expanding-place.rkt +++ b/collects/drracket/private/expanding-place.rkt @@ -204,7 +204,8 @@ (andmap (λ (srcloc) (equal? (srcloc-source srcloc) the-source)) (exn:fail:read-srclocs exn))) 'reader-in-defs-error] - [(regexp-match #rx"expand: unbound identifier" (exn-message exn)) + [(and (exn? exn) + (regexp-match #rx"expand: unbound identifier" (exn-message exn))) 'exn:variable] [else 'exn]) (trim-message