Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-07 05:06:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

has_cycle - remove comparisons for known dupe objs

Browse source 
Trying leaving out comparisons of objects that are expected to be equal such as value types, booleans, and symbols.
This commit is contained in:
Justin Ethier 2015-03-24 15:53:54 -04:00
parent 9ea8d0c778
commit d418ce265f
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runtime.h
View file

@ -563,7 +563,10 @@ static object Cyc_has_cycle(object lst) {
if (Cyc_is_cons(fast_lst) == boolean_f) return boolean_f; if (Cyc_is_cons(fast_lst) == boolean_f) return boolean_f;
if (nullp(cdr(fast_lst))) return boolean_f; if (nullp(cdr(fast_lst))) return boolean_f;
if (Cyc_is_cons(cdr(fast_lst)) == boolean_f) return boolean_f; if (Cyc_is_cons(cdr(fast_lst)) == boolean_f) return boolean_f;
if (eq(car(slow_lst), car(fast_lst))) return boolean_t; if (is_object_type(car(slow_lst)) &&
!Cyc_is_boolean(car(slow_lst)) && // Avoid expected dupes
!Cyc_is_symbol(car(slow_lst)) && //
eq(car(slow_lst), car(fast_lst))) return boolean_t;
slow_lst = cdr(slow_lst); slow_lst = cdr(slow_lst);
fast_lst = cddr(fast_lst); fast_lst = cddr(fast_lst);