From 2c65aa85125ca8e05067b3ca6f49c480d04865e4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 14 Aug 2016 07:33:27 -0600
Subject: [PATCH] unbreak compile with MSVC

---
 racket/src/racket/src/list.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/src/racket/src/list.c b/racket/src/racket/src/list.c
index 7635f44684..2c84427458 100644
--- a/racket/src/racket/src/list.c
+++ b/racket/src/racket/src/list.c
@@ -1049,11 +1049,12 @@ scheme_init_unsafe_hash (Scheme_Env *env)
 
 Scheme_Object *scheme_make_pair(Scheme_Object *car, Scheme_Object *cdr)
 {
-  DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_pair_type));
 #ifdef MZ_PRECISE_GC
+  DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_pair_type));
   return GC_malloc_pair(car, cdr);
 #else
   Scheme_Object *cons;
+  DEBUG_COUNT_ALLOCATION(scheme_make_integer(scheme_pair_type));
   cons = scheme_alloc_object();
   cons->type = scheme_pair_type;
   SCHEME_CAR(cons) = car;