X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ffunction-documentation.cc;h=99fbdfe6c8ce17838c2f58a90f1eba3517995a4d;hb=b872748c6aa8bb721ced458691b38ac2fac5dfc8;hp=756f174512417ef14a58e3722d2ec84ebb72356a;hpb=0b25807868f2e1f3372a8fb5e19d9036dec53ecc;p=lilypond.git

diff --git a/lily/function-documentation.cc b/lily/function-documentation.cc
index 756f174512..99fbdfe6c8 100644
--- a/lily/function-documentation.cc
+++ b/lily/function-documentation.cc
@@ -33,11 +33,12 @@ using namespace std;
 #include "music-function.hh"
 #include "paper-score.hh"
 #include "performance.hh"
+#include "protected-scm.hh"
 #include "spanner.hh"
 #include "stream-event.hh"
 #include "unpure-pure-container.hh"
 
-static SCM doc_hash_table;
+static Protected_scm doc_hash_table;
 
 void
 ly_check_name (const string &cxx, const string &scm_name)
@@ -58,8 +59,8 @@ ly_add_function_documentation (SCM func,
   if (doc == "")
     return;
 
-  if (!doc_hash_table)
-    doc_hash_table = scm_permanent_object (scm_c_make_hash_table (59));
+  if (!doc_hash_table.is_bound ())
+    doc_hash_table = scm_c_make_hash_table (59);
 
   string s = string (" - ") + "LilyPond procedure: " + fname + " " + varlist
              + "\n" + doc;