remove white space

pull/9/head
Matthew Butterick 11 years ago
parent 2f755ed771
commit 47dd531f04

@ -29,7 +29,6 @@
#:symbol-proc [symbol-proc (λ(x)x)] #:symbol-proc [symbol-proc (λ(x)x)]
#:valid-char-proc [valid-char-proc (λ(x)x)] #:valid-char-proc [valid-char-proc (λ(x)x)]
#:cdata-proc [cdata-proc (λ(x)x)] #:cdata-proc [cdata-proc (λ(x)x)]
#:exclude-tags [excluded-tags '()]) #:exclude-tags [excluded-tags '()])
((xexpr/c) ((xexpr/c)
(#:txexpr-tag-proc (txexpr-tag? . -> . txexpr-tag?) (#:txexpr-tag-proc (txexpr-tag? . -> . txexpr-tag?)
@ -49,7 +48,6 @@
[(txexpr? x) (let-values([(tag attrs elements) (txexpr->values x)]) [(txexpr? x) (let-values([(tag attrs elements) (txexpr->values x)])
(if (member tag excluded-tags) (if (member tag excluded-tags)
x ; because it's excluded x ; because it's excluded
;; we apply processing here rather than do recursive descent on the pieces ;; we apply processing here rather than do recursive descent on the pieces
;; because if we send them back through loop, certain element types are ambiguous ;; because if we send them back through loop, certain element types are ambiguous
;; e.g., ((p "foo")) tests out as both txexpr-attrs and txexpr-elements ;; e.g., ((p "foo")) tests out as both txexpr-attrs and txexpr-elements

Loading…
Cancel
Save