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

correct bad behavior on other exns

Browse Source 
svn: r13326
This commit is contained in:
Jay McCarthy 2009-01-30 18:18:01 +00:00
parent 6c77acf6f1
commit a01a517445
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/web-server/private/xexpr.ss
View File

@ -105,10 +105,18 @@
(define blank (read-line)) (define blank (read-line))
(define c:context (read-line)) (define c:context (read-line))
(define not-xexpr (read)) (define not-xexpr (read))
(when
(or (ormap eof-object?
(list violator c:broke c:the c:contract contract-expr
c:on contracted c:semi xml:msg blank c:context not-xexpr))
(not (andmap symbol=?
(list 'broke 'the 'contract 'on '|;| 'Context:)
(list c:broke c:the c:contract c:on c:semi c:context))))
(error 'parse-xexpr-error "Not Xexpr error"))
(values violator contract-expr contracted xml:msg not-xexpr)))) (values violator contract-expr contracted xml:msg not-xexpr))))
(define (reformat-xexpr-exn m) (define (reformat-xexpr-exn m)
(with-handlers (#;[exn? (lambda _ m)]) (with-handlers ([exn? (lambda _ m)])
(define-values (violator contract-expr contracted xml:msg not-xexpr) (define-values (violator contract-expr contracted xml:msg not-xexpr)
(parse-xexpr-error m)) (parse-xexpr-error m))
`(span ,(format "~a broke the contract~n~a~non ~a;~a~n~nContext:~n" `(span ,(format "~a broke the contract~n~a~non ~a;~a~n~nContext:~n"