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

Contract

Browse Source 
svn: r12790
This commit is contained in:
Jay McCarthy 2008-12-12 16:59:28 +00:00
parent 3fcc58c05e
commit 0c093b73f1
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -148,7 +148,6 @@
(null? (cddr b)))) (null? (cddr b))))
;; xml->xexpr : Content -> Xexpr ;; xml->xexpr : Content -> Xexpr
;; The contract is loosely enforced.
(define (xml->xexpr x) (define (xml->xexpr x)
(let* ([non-dropping-combine (let* ([non-dropping-combine
(lambda (atts body) (lambda (atts body)
@ -170,8 +169,7 @@
[(entity? x) (entity-text x)] [(entity? x) (entity-text x)]
[(or (comment? x) (pi? x) (cdata? x)) x] [(or (comment? x) (pi? x) (cdata? x)) x]
[(document? x) (error 'xml->xexpr "Expected content, given ~e\nUse document-element to extract the content." x)] [(document? x) (error 'xml->xexpr "Expected content, given ~e\nUse document-element to extract the content." x)]
[else ;(error 'xml->xexpr "Expected content, given ~e" x) [else (error 'xml->xexpr "Expected content, given ~e" x)]))))
x]))))
;; attribute->srep : Attribute -> Attribute-srep ;; attribute->srep : Attribute -> Attribute-srep
(define (attribute->srep a) (define (attribute->srep a)