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

exn:fail from exn

Browse Source 
svn: r9546
This commit is contained in:
Jay McCarthy 2008-04-30 19:26:45 +00:00
parent 3eb20f5a11
commit 8bfec15aff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/xml/private/xexpr.ss
View File

@ -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)