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

cleanup 

Re-format the code so that it complies with the C coding rule of picrin.
This commit is contained in:
koba-e964 2014-03-16 21:55:50 +09:00
parent 138ac70130
commit c23e3254fb
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/pair.c
View File

@ -51,22 +51,24 @@ pic_list_p(pic_state *pic, pic_value obj)
UNUSED(pic); UNUSED(pic);
pic_value twice=obj; pic_value twice=obj;
while (1) { /* This code checks whether obj is a circular list
using Floyd's cycle-finding algorithm. */
while ( 1 ) { /* loops until a cycle is detected or an object other than a pair is found */
int i; int i;
/* variable twice are scanned twice as fast as obj */ for (i = 0; i < 2; ++i) {
for(i=0;i<2;i++){ if (pic_pair_p(twice)) {
if(pic_pair_p(twice)){ twice = pic_pair_ptr(twice)->cdr;
twice=pic_pair_ptr(twice)->cdr;
} }
else{ else {
return pic_nil_p(twice); return pic_nil_p(twice);
} }
} }
obj = pic_pair_ptr(obj)->cdr; obj = pic_pair_ptr(obj)->cdr; /* Since obj progresses slower than twice, it is guaranteed that obj is a pair. */
if(pic_eq_p(obj,twice)){ /* circular list */ if (pic_eq_p(obj,twice)) { /* obj is a circular list */
return false; return false;
} }
} }
/* unreachable */
} }
pic_value pic_value