improve error message for xml contract violation

2018-03-23 08:45:34 -05:00 · 2018-03-23 08:45:34 -05:00 · e031e04f62
commit e031e04f62
parent 26d1e94421
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/xml/private/structures.rkt
+++ b/racket/collects/xml/private/structures.rkt
@ -50,7 +50,7 @@
         v
         (raise-blame-error
          blame #:missing-party neg-party
-          v "not in permissive mode"))))
+          v '("not in permissive mode" given: "~e") v))))
   #:first-order
   (lambda (v) #t)))