From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 2 Sep 2004 19:17:27 +0000 (+0000)
Subject: (scm_is_number): add scm_is_number
X-Git-Tag: release/2.3.14~11
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=11cba0d7df84cd48ebabf158ac2ddb108d924f18;p=lilypond.git

(scm_is_number): add scm_is_number
---

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 4576a2271d..47d836e465 100644
--- 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