X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscm-hash.cc;h=1944b537e18cfeef68b53ea27eab7c483d1d7679;hb=00b9619cea1020f6773f23df8764ef85ee2912bf;hp=173dd49ccccfa661785b30e95b61e51aee7a76d6;hpb=d93f200b402bf71709fc3426132e4a27c56ec684;p=lilypond.git

diff --git a/lily/scm-hash.cc b/lily/scm-hash.cc
index 173dd49ccc..1944b537e1 100644
--- a/lily/scm-hash.cc
+++ b/lily/scm-hash.cc
@@ -71,10 +71,9 @@ Scheme_hash_table::~Scheme_hash_table ()
 }
 
 SCM
-Scheme_hash_table::mark_smob (SCM s)
+Scheme_hash_table::mark_smob ()
 {
-  Scheme_hash_table *me = (Scheme_hash_table *) SCM_CELL_WORD_1 (s);
-  scm_gc_mark (me->hash_tab_);
+  scm_gc_mark (hash_tab_);
   return SCM_EOL;
 }