From 0c093b73f1b294bf63463eeaf6b4db6f52b13bf4 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 12 Dec 2008 16:59:28 +0000 Subject: [PATCH] Contract svn: r12790 --- collects/xml/private/xexpr.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/xml/private/xexpr.ss b/collects/xml/private/xexpr.ss index 0932a05f78..6d512b30f4 100644 --- a/collects/xml/private/xexpr.ss +++ b/collects/xml/private/xexpr.ss @@ -148,7 +148,6 @@ (null? (cddr b)))) ;; xml->xexpr : Content -> Xexpr - ;; The contract is loosely enforced. (define (xml->xexpr x) (let* ([non-dropping-combine (lambda (atts body) @@ -170,8 +169,7 @@ [(entity? x) (entity-text 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)] - [else ;(error 'xml->xexpr "Expected content, given ~e" x) - x])))) + [else (error 'xml->xexpr "Expected content, given ~e" x)])))) ;; attribute->srep : Attribute -> Attribute-srep (define (attribute->srep a)