Mark scan unused in non-debug builds.

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index 9d9ddd163f3874f864bf71941f9764060c82776b..7439075c0e643986bdcf108e6a5f722f806244a6 100644 (file)
--- 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
 }