fix `check-txexprs-equal?` bw compat issue

pull/2/head
Matthew Butterick 9 years ago
parent 7fe9a04b6d
commit 4988ee98d5

@ -347,12 +347,13 @@
(define-simple-check (check-txexprs-equal? tx1 tx2) (define-simple-check (check-txexprs-equal? tx1 tx2)
;; txexprs are deemed equal if they differ only in the ordering of attributes. ;; txexprs are deemed equal if they differ only in the ordering of attributes.
;; therefore, to check them, 1) sort their attributes, 2) straight list comparison. ;; therefore, to check them, 1) sort their attributes, 2) straight list comparison.
(define symbol<? (λ syms (apply string<? (map symbol->string syms)))) ;; use letrec because `define-simple-check` wants an expression in <=6.2
(define (sort-attrs x) (letrec ([symbol<? (λ syms (apply string<? (map symbol->string syms)))]
[sort-attrs (λ(x)
(if (txexpr? x) (if (txexpr? x)
(let-values ([(tag attr elements) (txexpr->values x)]) (let-values ([(tag attr elements) (txexpr->values x)])
(make-txexpr tag (sort attr #:key car symbol<?) (map sort-attrs elements))) (make-txexpr tag (sort attr #:key car symbol<?) (map sort-attrs elements)))
x)) x))])
(equal? (sort-attrs tx1) (sort-attrs tx2))) (equal? (sort-attrs tx1) (sort-attrs tx2))))
(check-txexprs-equal? '(p ((b "foo")(a "bar")) (span ((d "foo")(c "bar")))) '(p ((a "bar")(b "foo")) (span ((c "bar")(d "foo"))))) (check-txexprs-equal? '(p ((b "foo")(a "bar")) (span ((d "foo")(c "bar")))) '(p ((a "bar")(b "foo")) (span ((c "bar")(d "foo")))))

Loading…
Cancel
Save