From 10ce6a47cbf2f555ce10a48c5f33d8cf01e61490 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 10 Feb 2011 00:44:00 +0900
Subject: [PATCH] fixing GC_DEBUG>=2

---
 gc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gc.c b/gc.c
index 175c6c3c..ca20ed4c 100644
--- a/gc.c
+++ b/gc.c
@@ -76,9 +76,9 @@ void sexp_mark (sexp ctx, sexp x) {
   }
 #endif
 #if SEXP_USE_DEBUG_GC > 1
-  if (sexp_pointer_tag(p)<=0 || sexp_pointer_tag(p)>sexp_context_num_types(ctx)){
+  if (sexp_pointer_tag(x)<=0 || sexp_pointer_tag(x)>sexp_context_num_types(ctx)){
     fprintf(stderr, SEXP_BANNER("%p mark: bad object at %p: tag: %d"),
-            ctx, p, sexp_pointer_tag(p));
+            ctx, x, sexp_pointer_tag(x));
     return;
   }
 #endif