]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/scope.cc
release: 1.3.0
[lilypond.git] / lily / scope.cc
index e58ad798cbdb6e290de724082adaa15ef1c558f3..be98f18612c6064a533093459c4bf9fa43c8c0df 100644 (file)
@@ -44,14 +44,15 @@ Scope::Scope (Scope const&s)
     }
 }
 
-unsigned int scm_hash (Protected_scm s)
+unsigned int ly_pscm_hash (Protected_scm s)
 {
-  return scm_ihashv (s, ~1u);
+  return ly_scm_hash (s);
 }
 
+
 Scope::Scope ()
 {
-  hash_func_ = scm_hash;
+  hash_func_ = ly_pscm_hash;
 }
 
 bool