Disable check_cycles_fast for places

svn: r16157
2009-09-28 22:08:31 +00:00 · 2009-09-28 22:08:31 +00:00 · 090f5eb474
commit 090f5eb474
parent 1d95e97c29
1 changed files with 4 additions and 0 deletions
--- 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);