upscheme/femtolisp/equalhash.c

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <assert.h>
#include <limits.h>
#include <setjmp.h>

#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_)
adding equalhash.c some cleanup moving some library code around for size optimization now using == instead of flt_equals for float comparison, mostly for hash compatibility 2008-11-28 16:44:59 -05:00			`#include <stdlib.h>`
			`#include <stdio.h>`
			`#include <string.h>`
			`#include <assert.h>`
			`#include <limits.h>`
fully separating femtolisp into library core and main program 2010-05-02 14:17:47 -04:00			`#include <setjmp.h>`
adding equalhash.c some cleanup moving some library code around for size optimization now using == instead of flt_equals for float comparison, mostly for hash compatibility 2008-11-28 16:44:59 -05:00
			`#include "llt.h"`
			`#include "flisp.h"`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#include "equalhash.h"`
adding equalhash.c some cleanup moving some library code around for size optimization now using == instead of flt_equals for float comparison, mostly for hash compatibility 2008-11-28 16:44:59 -05:00
			`#include "htable.inc"`

misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#define _equal_lispvalue_(x,y) equal_lispvalue((value_t)(x),(value_t)(y))`

			`HTIMPL(equalhash, hash_lispvalue, _equal_lispvalue_)`