From 090f5eb4746fef7cf58958fb75a21abf0775e5af Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Mon, 28 Sep 2009 22:08:31 +0000
Subject: [PATCH] Disable check_cycles_fast for places

svn: r16157
---
 src/mzscheme/src/print.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/mzscheme/src/print.c b/src/mzscheme/src/print.c
index d62fa80e56..0531fae272 100644
--- a/src/mzscheme/src/print.c
+++ b/src/mzscheme/src/print.c
@@ -862,7 +862,11 @@ print_to_string(Scheme_Object *obj,
     cycles = 1;
   else {
     int fast_checker_counter = 50;
+#ifdef MZ_USE_PLACES
+    cycles = -1;
+#else
     cycles = check_cycles_fast(obj, (PrintParams *)&params, &fast_checker_counter);
+#endif
     if (cycles == -1) {
       ht = scheme_make_hash_table(SCHEME_hash_ptr);
       cycles = check_cycles(obj, write, ht, (PrintParams *)&params);