#include "hash-table.hh"
#include "smobs.hh"
-#define usestl
struct SCM_less
{
class Scheme_hash_table : private Scm_stl_map
{
public:
-#ifndef usestl
- // bool elem_b (SCM k) const;
- Hash_table<SCM,SCM>::try_retrieve;
- Hash_table<SCM,SCM>::elem_b;
-#else
bool try_retrieve (SCM key, SCM *val);
bool elem_b (SCM key) const;
-#endif
-
/**
WARNING: putting something in assumes responsibility for cleaning