21 lines
555 B
C
21 lines
555 B
C
#ifndef WEAK_SET_H
|
|
#define WEAK_SET_H
|
|
|
|
#include "gyehoek.h"
|
|
|
|
#define SCM_WEAK_SET_P(x) (SCM_HAS_TYP7 (x, scm_tc7_weak_set))
|
|
|
|
/* Function that returns nonzero if the given object is the one we are
|
|
looking for. */
|
|
typedef int (*scm_t_set_predicate_fn) (SCM obj, void *closure);
|
|
|
|
SCM scm_c_make_weak_set (unsigned long k);
|
|
|
|
SCM scm_c_weak_set_insert (SCM set, unsigned long hash,
|
|
SCM key, scm_t_set_predicate_fn pred,
|
|
void* closure);
|
|
|
|
unsigned long weak_set_count (SCM set);
|
|
|
|
#endif /* WEAK_SET_H */
|