shithub: femtolisp

ref: 738a6ef63e019cfd6262b4418f5aa9d8c7c3a1d9
dir: /equalhash.c/

View raw version
#include "llt.h"
#include "flisp.h"
#include "equalhash.h"
#include "equal.h"
#include "htable.inc"

#define _equal_lispvalue_(x, y) equal_lispvalue((value_t)(x), (value_t)(y))

HTIMPL(equalhash, hash_lispvalue, _equal_lispvalue_)