conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

s/rapid_count/c/g

This commit is contained in:
Yuichi Nishiwaki 2014-07-19 12:24:38 +09:00
parent e41cbc6f33
commit 9d05ab2629
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/bool.c
View File

@ -35,7 +35,7 @@ static bool
internal_equal_p(pic_state *pic, pic_value x, pic_value y, size_t depth, xhash *ht) internal_equal_p(pic_state *pic, pic_value x, pic_value y, size_t depth, xhash *ht)
{ {
pic_value local = pic_nil_value(); pic_value local = pic_nil_value();
size_t rapid_count = 0; size_t c;
if (depth > 10) { if (depth > 10) {
if (depth > 200) { if (depth > 200) {
@ -50,6 +50,8 @@ internal_equal_p(pic_state *pic, pic_value x, pic_value y, size_t depth, xhash *
} }
} }
c = 0;
LOOP: LOOP:
if (pic_eqv_p(x, y)) if (pic_eqv_p(x, y))
@ -73,10 +75,10 @@ internal_equal_p(pic_state *pic, pic_value x, pic_value y, size_t depth, xhash *
x = pic_cdr(pic, x); x = pic_cdr(pic, x);
y = pic_cdr(pic, y); y = pic_cdr(pic, y);
++rapid_count; c++;
if (rapid_count == 2) { if (c == 2) {
rapid_count = 0; c = 0;
local = pic_cdr(pic, local); local = pic_cdr(pic, local);
if (pic_eq_p(local, x)) { if (pic_eq_p(local, x)) {
return true; return true;