#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 */