From 69da9eeaf9905ade256f4220f478d329fc733320 Mon Sep 17 00:00:00 2001
From: "D. Ben Knoble" <ben.knoble+github@gmail.com>
Date: Wed, 4 Oct 2023 16:37:02 -0400
Subject: [PATCH] fix apply: equal? is not variadic

---
 dia/compare-anonymous-appraisal.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dia/compare-anonymous-appraisal.rkt b/dia/compare-anonymous-appraisal.rkt
index 80f5231..ed6a894 100644
--- a/dia/compare-anonymous-appraisal.rkt
+++ b/dia/compare-anonymous-appraisal.rkt
@@ -18,7 +18,7 @@
        (match trees
          [(list '() ...) result]
          [(list (cons (? string? x) rest) ...)
-          #:when (apply equal? x)
+          #:when (apply string=? x)
           (loop (cons (list (car x)) result)
                 rest)]
          [(list (cons (? number? n) rest) ...)