core: string_equal_p: Prepare for M2-Planet.
* src/string.c (string_equal_p): Prepare for M2-Planet.
This commit is contained in:
parent
1ac06460a6
commit
058dfc74ea
12
src/string.c
12
src/string.c
|
@ -77,11 +77,15 @@ string_equal_p (SCM a, SCM b) /*:((name . "string=?")) */
|
||||||
eputs ("\n");
|
eputs ("\n");
|
||||||
assert_msg ((TYPE (a) == TSTRING && TYPE (b) == TSTRING) || (TYPE (a) == TKEYWORD || TYPE (b) == TKEYWORD), "(TYPE (a) == TSTRING && TYPE (b) == TSTRING) || (TYPE (a) == TKEYWORD || TYPE (b) == TKEYWORD)");
|
assert_msg ((TYPE (a) == TSTRING && TYPE (b) == TSTRING) || (TYPE (a) == TKEYWORD || TYPE (b) == TKEYWORD), "(TYPE (a) == TSTRING && TYPE (b) == TSTRING) || (TYPE (a) == TKEYWORD || TYPE (b) == TKEYWORD)");
|
||||||
}
|
}
|
||||||
if (a == b
|
if (a == b)
|
||||||
|| STRING (a) == STRING (b)
|
|
||||||
|| (LENGTH (a) == 0 && LENGTH (b) == 0)
|
|
||||||
|| (LENGTH (a) == LENGTH (b) && !memcmp (cell_bytes (STRING (a)), cell_bytes (STRING (b)), LENGTH (a))))
|
|
||||||
return cell_t;
|
return cell_t;
|
||||||
|
if (STRING (a) == STRING (b))
|
||||||
|
return cell_t;
|
||||||
|
if (LENGTH (a) == 0 && LENGTH (b) == 0)
|
||||||
|
return cell_t;
|
||||||
|
if (LENGTH (a) == LENGTH (b))
|
||||||
|
if (memcmp (cell_bytes (STRING (a)), cell_bytes (STRING (b)), LENGTH (a)) == 0)
|
||||||
|
return cell_t;
|
||||||
|
|
||||||
return cell_f;
|
return cell_f;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue