-#ifndef SCM_HASH_HH
-#define SCM_HASH_HH
-
-
-#include <map>
-
-#include "lily-guile.hh"
-#include "smobs.hh"
-
-
-struct SCM_less
-{
- bool operator () (SCM s1, SCM s2) const
- {
- return long (s1) < long (s2);
- }
-};
-
-typedef std::map<SCM,SCM, SCM_less> Scm_stl_map;