release: 1.3.13

[lilypond.git] / lily / molecule.cc

diff --git a/lily/molecule.cc b/lily/molecule.cc
index 3f148119551a65ed831c59c18c285029ea58035b..710ee8b397298b6bad669b8c3510bb9c8ad46578 100644 (file)
--- a/lily/molecule.cc
+++ b/lily/molecule.cc
@@ -16,12 +16,12 @@
 
 #ifdef ATOM_SMOB
 #define MOL_EOL SCM_EOL
-#define NEXT_CELL(a) SCM_CDR(a)
+#define NEXT_CELL(a) gh_cdr(a)
 #define CELLTYPE SCM
 #define UNBOX_ATOM(a) Atom::atom_l (a)
 #define BOX_ATOM(a) a->make_smob ()
 #define NEWCELL(a,b) gh_cons (a,b)
-#define UNBOX_PTR(a) SCM_CAR(a)
+#define UNBOX_PTR(a) gh_car (a)
 #else
 #define MOL_EOL 0
 #define NEXT_CELL(a) ptr->next_