From 8bfec15aff1edeae944d748f2abd75ad00370991 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 30 Apr 2008 19:26:45 +0000 Subject: [PATCH] exn:fail from exn svn: r9546 --- collects/xml/private/xexpr.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/xml/private/xexpr.ss b/collects/xml/private/xexpr.ss index 6ecf5c158a..cc0dd7e4ca 100644 --- a/collects/xml/private/xexpr.ss +++ b/collects/xml/private/xexpr.ss @@ -49,7 +49,7 @@ ;; ;; ;; ;; ;; ;; ; ;; ; xexpr? helpers - (define-struct (exn:invalid-xexpr exn) (code)) + (define-struct (exn:invalid-xexpr exn:fail) (code)) ;; correct-xexpr? : any (-> a) (exn -> a) -> a (define (correct-xexpr? x true false)