libgeda/include/guile_compat_1.6.h

   1 #if !HAVE_DECL_SCM_IS_TRUE
   2 #define scm_is_true(x)    SCM_NFALSEP(x)
   3 #endif
   4
   5 #if !HAVE_DECL_SCM_IS_FALSE
   6 #define scm_is_false(x)   SCM_FALSEP(x)
   7 #endif
   8
   9 #if !HAVE_DECL_SCM_IS_INTEGER
  10 #define scm_is_integer(x) SCM_INUMP(x)
  11 #endif
  12
  13 #if !HAVE_DECL_SCM_TO_INT
  14 #define scm_to_int(x)     SCM_INUM(x)
  15 #endif
  16
  17 #if !HAVE_DECL_SCM_FROM_INT
  18 #define scm_from_int(x)   SCM_MAKINUM(x)
  19 #endif
  20
  21 #if !HAVE_DECL_SCM_IS_STRING
  22 #define scm_is_string(x) SCM_STRINGP(x)
  23 #endif
  24
  25 #if !HAVE_DECL_SCM_TO_LOCALE_STRING
  26 #define scm_to_locale_string(x)   strdup(SCM_STRING_CHARS(x))
  27 #endif
  28
  29 #if !HAVE_DECL_SCM_FROM_LOCALE_STRING
  30 #define scm_from_locale_string(x) scm_makfrom0str(x)
  31 #endif
  32
  33 #if !HAVE_DECL_SCM_FROM_LOCALE_SYMBOL
  34 #define scm_from_locale_symbol(x) \
  35   scm_string_to_symbol (scm_from_locale_string (x))
  36 #endif
  37
  38 #if !HAVE_DECL_SCM_CAR
  39 #define scm_car(x) SCM_CAR(x)
  40 #endif
  41
  42 #if !HAVE_DECL_SCM_CADDR
  43 #define scm_caddr(x) SCM_CADDR(x)
  44 #endif
  45
  46 #if !HAVE_DECL_SCM_CADR
  47 #define scm_cadr(x) SCM_CADR(x)
  48 #endif
  49