suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

guard use of exn-message

Browse Source 
closes PR 13316
This commit is contained in:
Robby Findler 2012-11-28 13:16:58 -06:00
parent 253ae42558
commit 97454b6e55
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/expanding-place.rkt
View File

@ -204,7 +204,8 @@
(andmap (λ (srcloc) (equal? (srcloc-source srcloc) the-source)) (andmap (λ (srcloc) (equal? (srcloc-source srcloc) the-source))
(exn:fail:read-srclocs exn))) (exn:fail:read-srclocs exn)))
'reader-in-defs-error] '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] 'exn:variable]
[else 'exn]) [else 'exn])
(trim-message (trim-message