From 5ef7dd088f8efa50578ebca89db7d4c6829775d8 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 3 Jul 2025 10:11:25 +0200
Subject: [PATCH] Small refactor to whippet embedder

* libguile/whippet-embedder.h (gc_atomic_forward_retry_busy): Use
scm_tc3_mask instead of 7.
---
 libguile/whippet-embedder.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/whippet-embedder.h b/libguile/whippet-embedder.h
index e09f017f5..46fafefa6 100644
--- a/libguile/whippet-embedder.h
+++ b/libguile/whippet-embedder.h
@@ -199,7 +199,7 @@ gc_atomic_forward_retry_busy (struct gc_atomic_forward *fwd) {
   scm_t_bits tag = atomic_load_explicit (loc, memory_order_acquire);
   if (tag == scm_cell_type_busy)
     return 0;
-  if ((tag & 7) == scm_tc3_forwarded) {
+  if ((tag & scm_tc3_mask) == scm_tc3_forwarded) {
     fwd->state = GC_FORWARDING_STATE_FORWARDED;
     fwd->data = tag;
   } else {