From 4988ee98d5aa6d0983ad0e7f0b2390b0eb1b162b Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 10 Dec 2015 13:04:11 -0800
Subject: [PATCH] fix `check-txexprs-equal?` bw compat issue

---
 main.rkt | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/main.rkt b/main.rkt
index 1dd028a..0437e6e 100644
--- a/main.rkt
+++ b/main.rkt
@@ -347,12 +347,13 @@
 (define-simple-check (check-txexprs-equal? tx1 tx2)
   ;; 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.
-  (define symbol<? (λ syms (apply string<? (map symbol->string syms))))
-  (define (sort-attrs x)
-    (if (txexpr? x)
-        (let-values ([(tag attr elements) (txexpr->values x)])
-          (make-txexpr tag (sort attr #:key car symbol<?) (map sort-attrs elements)))
-        x))
-  (equal? (sort-attrs tx1) (sort-attrs tx2)))
+  ;; use letrec because `define-simple-check` wants an expression in <=6.2
+  (letrec ([symbol<? (λ syms (apply string<? (map symbol->string syms)))]
+           [sort-attrs (λ(x)
+                         (if (txexpr? x)
+                             (let-values ([(tag attr elements) (txexpr->values x)])
+                               (make-txexpr tag (sort attr #:key car symbol<?) (map sort-attrs elements)))
+                             x))])
+    (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")))))