artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: eq_p: Prepare for M2-Planet.

Browse source 
* src/mes.c (eq_p): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 12:49:52 +02:00
parent 4297746e72
commit 4c83a3bc6b
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 24 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/mes.c
View file

@ -113,13 +113,31 @@ null_p (SCM x)
SCM SCM
eq_p (SCM x, SCM y) eq_p (SCM x, SCM y)
{ {
if (x == y if (x == y)
|| ((TYPE (x) == TKEYWORD && TYPE (y) == TKEYWORD
&& string_equal_p (x, y) == cell_t))
|| (TYPE (x) == TCHAR && TYPE (y) == TCHAR
&& VALUE (x) == VALUE (y))
|| (TYPE (x) == TNUMBER && TYPE (y) == TNUMBER && VALUE (x) == VALUE (y)))
return cell_t; return cell_t;
int t = TYPE (x);
if (t == TKEYWORD)
{
if (TYPE (y) == TKEYWORD)
return string_equal_p (x, y);
return cell_f;
}
if (t == TCHAR)
{
if (TYPE (y) != TCHAR)
return cell_f;
if (VALUE (x) == VALUE (y))
return cell_t;
return cell_f;
}
if (t == TNUMBER)
{
if (TYPE (y) != TNUMBER)
return cell_f;
if (VALUE (x) == VALUE (y))
return cell_t;
return cell_f;
}
return cell_f; return cell_f;
} }