shithub: femtolisp

ref: 10d16c10bed72a177a99e0a9a3f3caca6c38ce94
dir: /equalhash.c/

View raw version
#include "flisp.h"
#include "equalhash.h"
#include "equal.h"

#define HTNAME(suffix) equalhash##suffix
#define HFUNC hash_lispvalue
#define EQFUNC(x, y) equal_lispvalue((value_t)(x), (value_t)(y))

#include "htable.inc"