suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Disable check_cycles_fast for places

Browse Source 
svn: r16157
This commit is contained in:
Kevin Tew 2009-09-28 22:08:31 +00:00
parent 1d95e97c29
commit 090f5eb474
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/print.c
View File

@ -862,7 +862,11 @@ print_to_string(Scheme_Object *obj,
cycles = 1; cycles = 1;
else { else {
int fast_checker_counter = 50; int fast_checker_counter = 50;
#ifdef MZ_USE_PLACES
cycles = -1;
#else
cycles = check_cycles_fast(obj, (PrintParams *)&params, &fast_checker_counter); cycles = check_cycles_fast(obj, (PrintParams *)&params, &fast_checker_counter);
#endif
if (cycles == -1) { if (cycles == -1) {
ht = scheme_make_hash_table(SCHEME_hash_ptr); ht = scheme_make_hash_table(SCHEME_hash_ptr);
cycles = check_cycles(obj, write, ht, (PrintParams *)&params); cycles = check_cycles(obj, write, ht, (PrintParams *)&params);