From: hanwen <hanwen> Date: Fri, 5 Jul 2002 15:06:49 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: release/1.5.71~182 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dafa3e5d2ab6159f35777dbade90b27317eb2d1e;p=lilypond.git *** empty log message *** --- diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh index 8d40aa4f55..db02d97369 100644 --- a/lily/include/lily-guile.hh +++ b/lily/include/lily-guile.hh @@ -52,12 +52,12 @@ #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) { +inline SCM 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 + #define scm_gc_protect_object scm_protect_object #define scm_gc_unprotect_object scm_unprotect_object #define scm_list_n scm_listify