*** empty log message ***

[lilypond.git] / lily / include / lily-guile.hh

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index c56177af8b6b80acf3e0363641adb62da82d8dad..443713b6b63055156f5147d5730f622da04c225e 100644 (file)
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -82,7 +82,7 @@ inline SCM scm_c_make_vector  (int k, SCM val) {
 #define scm_gc_unregister_collectable_memory(a,b,c) scm_done_free(b)
 #define scm_gc_register_collectable_memory(a,b,c) scm_done_malloc(b)
 #define SCM_VECTOR_REF(v,i) (SCM_VELTS((v))[(i)])
-
+#define scm_hash_table_p scm_vector_p 
 
 #endif