From 382d52a58706a2585d5e48cd471a577548f9a370 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Tue, 9 Jul 2024 14:43:40 -0700
Subject: [PATCH] put original id stx in log message rather than datum

---
 mutate-lib/private/mutator-lib.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mutate-lib/private/mutator-lib.rkt b/mutate-lib/private/mutator-lib.rkt
index b59b9ee..426661e 100644
--- a/mutate-lib/private/mutator-lib.rkt
+++ b/mutate-lib/private/mutator-lib.rkt
@@ -170,7 +170,7 @@
                                  swapped
                                  maybe-atom-stx
                                  maybe-atom-stx))
-                (apply-swap-alist (syntax->datum maybe-atom-stx)
+                (apply-swap-alist maybe-atom-stx
                                   swaps
                                   mutation-index
                                   counter))))))
@@ -181,7 +181,7 @@
                           counter)
   (define mutator-sequence
     (for/list ([{orig new} (in-dict swap-alist)])
-      (make-guarded-mutator (λ (v) (equal? v orig))
+      (make-guarded-mutator (λ (v) (equal? (syntax->datum v) orig))
                             (λ (v) new))))
   (apply-mutators original-value
                   mutator-sequence