guard use of exn-message
closes PR 13316
This commit is contained in:
parent
253ae42558
commit
97454b6e55
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user