fix apply: equal? is not variadic

drym-org · Oct 4, 2023 · 69da9ee · 69da9ee
1 parent 939d7b2
commit 69da9ee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) ...)