From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 5 Jul 2002 12:16:06 +0000 (+0000)
Subject: remove guile 1.3 compatibility,  add 1.4
X-Git-Tag: release/1.5.66~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f5b7a2b5bac8ab93db20e258dc3c9b15b2787367;p=lilypond.git

remove guile 1.3 compatibility,  add 1.4
compatibility functions.
---

diff --git a/ChangeLog b/ChangeLog
index 9145629cf0..518fdcf08e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-05  Han-Wen  <hanwen@cs.uu.nl>
+
+	* lily-guile.hh: remove guile 1.3 compatibility,  add 1.4
+	compatibility functions.
+
 2002-07-05  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* Documentation/windows/lilypond.hint (requires): Add libintl2.
diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 4930b4fec7..8d40aa4f55 100644
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -37,25 +37,6 @@
 
 #include "drul-array.hh"
 
-
-/* Guile 1.3.4 compatibility */
-#if GUILE_MINOR_VERSION < 4
-
-
-#ifndef SCM_CELL_TYPE
-#define SCM_CELL_TYPE(X) SCM_CAR (X)
-#endif
-
-#ifndef SCM_CELL_WORD_1
-#define SCM_CELL_WORD_1(X) SCM_CDR (X)
-#endif
-
-#define scm_bits_t SCM
-
-#define fix_guile_1_3_4_scm_puts(scm_data, port) scm_puts ((char*)scm_data, port)
-#define scm_puts(scm_data, port) fix_guile_1_3_4_scm_puts (scm_data, port)
-#endif
-
 /* Guile 1.4.x compatibility */
 #if GUILE_MINOR_VERSION < 5
 
@@ -71,6 +52,9 @@
 #define scm_set_current_module(x) (void)x
 #define scm_c_resolve_module(x) (SCM)0
 
+inline scm_c_make_vector  (int k, SCM val) {
+  return scm_make_vector (SCM_MAKINUM (k), val);
+}
 #define scm_c_define_gsubr scm_make_gsubr
 #define scm_c_eval_string(str) gh_eval_str ((char*)str)
 #define scm_c_memq scm_sloppy_memq
@@ -81,6 +65,8 @@
 #define SCM_STRING_LENGTH SCM_LENGTH
 #define SCM_SYMBOL_CHARS SCM_CHARS
 #define SCM_SYMBOL_LENGTH SCM_LENGTH
+#define SCM_VECTOR_LENGTH SCM_LENGTH
+
 #endif