From 7618a6a73760b64f9f9841935d0db1c8c7b88598 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 8 Nov 2012 09:54:01 -0700 Subject: [PATCH] Drop dead code. --- collects/xml/private/xexpr.rkt | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/collects/xml/private/xexpr.rkt b/collects/xml/private/xexpr.rkt index b380f5b371..701d9d2212 100644 --- a/collects/xml/private/xexpr.rkt +++ b/collects/xml/private/xexpr.rkt @@ -15,22 +15,6 @@ (define xexpr-drop-empty-attributes (make-parameter #f)) -; : (a -> bool) tst -> bool -; To check if l is a (listof p?) -; Don't use (and (list? l) (andmap p? l)) because l may be improper. -(define (listof? p? l) - (let listof-p? ([l l]) - (or (null? l) - (and (cons? l) (p? (car l)) (listof-p? (cdr l)))))) - -; : tst -> bool -(define (xexpr-attribute? b) - (and (pair? b) - (symbol? (car b)) - (pair? (cdr b)) - (string? (cadr b)) - (null? (cddr b)))) - ;; xml->xexpr : Content -> Xexpr (define (xml->xexpr x) (let* ([non-dropping-combine