From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Apr 2014 22:09:32 +0000 (+0000)
Subject: Mark scan unused in non-debug builds.
X-Git-Tag: release-9.2.0~22
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c320afdf356675ccd82d750be3d82f7e3edeeb5e;p=mit-scheme.git

Mark scan unused in non-debug builds.
---

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index 9d9ddd163..7439075c0 100644
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -962,6 +962,8 @@ scan_newspace_addr (SCHEME_OBJECT * addr)
 #ifdef ENABLE_GC_DEBUGGING_TOOLS
   if (scan != (addr + 1))
     std_gc_death ("scan_newspace_addr overflowed");
+#else
+  (void) scan;			/* ignore */
 #endif
 }