From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 18 May 2005 13:35:17 +0000 (+0000)
Subject: (ly_add_function_documentation):
X-Git-Tag: release/2.5.25~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d5ee1e891224315cf62ddcd272d5ff57a28a2355;p=lilypond.git

(ly_add_function_documentation):
use scm_hash_table_p() for checking.
---

diff --git a/lily/function-documentation.cc b/lily/function-documentation.cc
index bfa68ec546..8ea300dab3 100644
--- a/lily/function-documentation.cc
+++ b/lily/function-documentation.cc
@@ -21,7 +21,7 @@ void ly_add_function_documentation (SCM func,
   if (!strlen (doc))
     return;
 
-  if (!scm_is_vector (doc_hash_table))
+  if (scm_hash_table_p (doc_hash_table) == SCM_BOOL_T)
     doc_hash_table = scm_c_make_hash_table (59);
 
   String s = String (" - ") + "LilyPond procedure: " + fname + " " + varlist