release: 1.4.8

[lilypond.git] / lily / scm-hash.cc

diff --git a/lily/scm-hash.cc b/lily/scm-hash.cc
index 2dfca6d4e650e6224db8fbb74519d8afd4944761..09750b51ace1107df9f900dc8a8b317c0bcbfb73 100644 (file)
--- a/lily/scm-hash.cc
+++ b/lily/scm-hash.cc
@@ -54,7 +54,7 @@ Scheme_hash_table::print_smob (SCM s, SCM p, scm_print_state*)
 {
   assert (unsmob (s));
   char str[1000];
-  sprintf (str, "#<Scheme_hash_table 0x%0x ", s);
+  sprintf (str, "#<Scheme_hash_table 0x%0x ", SCM_UNPACK (s));
   scm_puts (str, p);      
   Scheme_hash_table *me = unsmob (s);
   for (Scm_stl_map::const_iterator i = me->begin (); i != me->end (); i++)
@@ -98,6 +98,11 @@ Scheme_hash_table::get (SCM k)const
   return (* (Scheme_hash_table*)this)[k]; 
 }
 
+void
+Scheme_hash_table::remove (SCM k)
+{
+  Scm_stl_map::erase (k);
+}
 
 Scheme_hash_table::~Scheme_hash_table ()
 {