shithub: femtolisp

ref: 1cca028c935fb4b59ec19c570be7a4d1425f8cf1
dir: /equal.h/

View raw version 
#ifndef EQUAL_H
#define EQUAL_H

// comparable with ==
#define eq_comparable(a, b) (!(((a)|(b))&1))
#define eq_comparablep(a) (!((a)&1)) /* mag: UNUSED? */

value_t fl_compare(value_t a, value_t b);
value_t fl_equal(value_t a, value_t b);
int equal_lispvalue(value_t a, value_t b);
uintptr_t hash_lispvalue(value_t a);
value_t compare_(value_t a, value_t b, int eq);

#endif