kdx
/
fe
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Removed redundant check in equal()'s string comparison

This commit is contained in:
rxi 2020-04-05 15:35:42 +01:00
parent b88139cb22
commit 61c9ee30f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/fe.c
View File

@ -202,10 +202,10 @@ static int equal(fe_Object *a, fe_Object *b) {
if (type(a) != type(b)) { return 0; }
if (type(a) == FE_TNUMBER) { return number(a) == number(b); }
if (type(a) == FE_TSTRING) {
for (; !isnil(a) && !isnil(b); a = cdr(a), b = cdr(b)) {
for (; !isnil(a); a = cdr(a), b = cdr(b)) {
if (car(a) != car(b)) { return 0; }
}
return isnil(a) && isnil(b);
return a == b;
}
return 0;
}