* The grand 2005-2006 replace.

[lilypond.git] / flower / include / guile-compatibility.hh

diff --git a/flower/include/guile-compatibility.hh b/flower/include/guile-compatibility.hh
index 98cc83b22a2f5f74928fd8a8bf3e4f05e92c6473..c256ddfc31ecf94910ff759fdcd081a34dfcfd60 100644 (file)
--- a/flower/include/guile-compatibility.hh
+++ b/flower/include/guile-compatibility.hh
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #ifndef GUILE_COMPATIBILITY_HH
@@ -24,6 +24,7 @@ inline SCM scm_car (SCM x)
     abort ();
   return SCM_CAR (x);
 }
+#define SCM_I_CONSP(x) SCM_CONSP (x)
 inline SCM scm_caar (SCM x) { return SCM_CAAR (x); }
 inline SCM scm_cdar (SCM x) { return SCM_CDAR (x); }
 inline SCM scm_cadr (SCM x) { return SCM_CADR (x); }