]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/context.cc
Doc: NR - changing-defaults.itely - various improvements
[lilypond.git] / lily / context.cc
index ef6fecf4b1aa123e566d858c4a576f2c3f45951e..a6b1da6a3609787625c7546905cf61a2935d6bf2 100644 (file)
@@ -90,8 +90,7 @@ Context::Context ()
 
   smobify_self ();
 
-  Scheme_hash_table *tab = new Scheme_hash_table;
-  properties_scm_ = tab->unprotect ();
+  properties_scm_ = Scheme_hash_table::make_smob ();
   event_source_ = new Dispatcher ();
   event_source_->unprotect ();
   events_below_ = new Dispatcher ();