20 lines
345 B
C
20 lines
345 B
C
|
#include <string.h>
|
||
|
|
|
||
|
|
#include "picrin.h"
|
||
|
|
|
||
|
|
bool
|
||
|
|
pic_eq_p(pic_state *pic, pic_value x, pic_value y)
|
||
|
|
{
|
||
|
|
if (pic_type(x) != pic_type(y))
|
||
|
|
return false;
|
||
|
|
|
||
|
|
switch (pic_type(x)) {
|
||
|
|
case PIC_TT_NIL:
|
||
|
|
return true;
|
||
|
|
case PIC_TT_SYMBOL:
|
||
|
|
return strcmp(pic_symbol_ptr(x)->name, pic_symbol_ptr(y)->name) == 0;
|
||
|
|
default:
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|