shithub: femtolisp

ref: 32172cdf6a00026675dee9be5c0fa3aef5fdff9d
dir: femtolisp/equalhash.c

View raw version 
#ifdef __plan9__
#include <u.h>
#include <libc.h>
#else
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <assert.h>
#include <limits.h>
#include <setjmp.h>
#endif

#include "llt.h"
#include "flisp.h"
#include "equalhash.h"

#include "htable.inc"

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

HTIMPL(equalhash, hash_lispvalue, _equal_lispvalue_)