Revision 35a186be87ca6f1dcb07fa606792395c3492b8bf authored by Ian Butterworth on 08 April 2021, 01:07:31 UTC, committed by GitHub on 08 April 2021, 01:07:31 UTC
* fold repeated `LoadError :` prints during showerror

* Only print a single LoadError: prefix
1 parent 263451e
Raw File
equalhash.c
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <assert.h>
#include <limits.h>
#include <setjmp.h>

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

#include "htable.inc"

#define _equal_lispvalue_(x, y, ctx)                                    \
    equal_lispvalue((fl_context_t*)ctx, (value_t)(x), (value_t)(y))
#define _hash_lispvalue_(x, ctx)                        \
    hash_lispvalue((fl_context_t*)ctx, (value_t)(x))

#ifdef __cplusplus
extern "C" {
#endif

HTIMPL_R(equalhash, _hash_lispvalue_, _equal_lispvalue_)

#ifdef __cplusplus
}
#endif
back to top