(scm_is_number): add scm_is_number

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 4576a2271d5e55a0876a505119c73bba66dd42b5..47d836e4656b6650ae00ea9d561a620e4d89faea 100644 (file)
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -26,6 +26,7 @@
 #define scm_hash_table_p scm_vector_p
 #define scm_i_string_chars(x) SCM_STRING_CHARS(x)
 #define scm_i_string_length(x) SCM_STRING_LENGTH(x)
+#define scm_is_number(x) (scm_number_p(x)==SCM_BOOL_T)
 #endif /* SCM_MINOR_VERSION < 7 */
 
 #ifndef SMOB_FREE_RETURN_VAL