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

Drop dead code.

Browse Source
This commit is contained in:
Danny Yoo 2012-11-08 09:54:01 -07:00
parent 641e855786
commit 7618a6a737
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/xml/private/xexpr.rkt
View File

@ -15,22 +15,6 @@
(define xexpr-drop-empty-attributes (make-parameter #f)) (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 ;; xml->xexpr : Content -> Xexpr
(define (xml->xexpr x) (define (xml->xexpr x)
(let* ([non-dropping-combine (let* ([non-dropping-combine