~ chicken-core (master) 0be18057e2b96995fe78431139f2c2baf2d192d9

commit 0be18057e2b96995fe78431139f2c2baf2d192d9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Aug 9 17:56:22 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Aug 9 17:56:22 2026 +0200

    avoid tracking mutation, as value is immediate

diff --git a/r7lib.scm b/r7lib.scm
index 1d7a9288..d683905a 100644
--- a/r7lib.scm
+++ b/r7lib.scm
@@ -67,7 +67,7 @@
       (when (interesting? o)
 	(cond ((seen? o) =>
 	       (lambda (p)
-		 (##sys#setslot p 1 (fx+ (cdr p) 1))))
+		 (##sys#setislot p 1 (fx+ (cdr p) 1))))
 	      ((pair? o)
 	       (seen! o)
 	       (walk! (car o))
@@ -84,7 +84,7 @@
 	(when cycles-only?
 	  (let ((p (seen? o)))
 	    (when (fx<= (cdr p) 1)
-	      (##sys#setslot p 1 0))))))
+	      (##sys#setislot p 1 0))))))
 
     ;; Mark shared objects #t, unshared objects #f.
     (foldl (lambda (a p)