43 |
|
|
44 |
#include <libguile.h> |
#include <libguile.h> |
45 |
|
|
46 |
|
#if GUILE_VERSION == 14 |
47 |
|
|
48 |
|
# define SCM_STRING_CHARS SCM_CHARS |
49 |
|
# define scm_list_1 SCM_LIST1 |
50 |
|
# define scm_list_2 SCM_LIST2 |
51 |
|
# define scm_list_3 SCM_LIST3 |
52 |
|
# define scm_list_4 SCM_LIST4 |
53 |
|
# define scm_list_5 SCM_LIST5 |
54 |
|
# define scm_list_n SCM_LISTN |
55 |
|
# define scm_c_define scm_sysintern |
56 |
|
# define scm_primitive_eval_x scm_eval_x |
57 |
|
# define scm_i_big2dbl scm_big2dbl |
58 |
|
|
59 |
|
extern SCM scm_long2num (long val); |
60 |
|
|
61 |
|
#endif |
62 |
|
|
63 |
typedef struct |
typedef struct |
64 |
{ |
{ |
65 |
int debug_guile; |
int debug_guile; |
77 |
extern SCM _mu_scm_debug; |
extern SCM _mu_scm_debug; |
78 |
|
|
79 |
extern SCM scm_makenum __P((unsigned long val)); |
extern SCM scm_makenum __P((unsigned long val)); |
80 |
|
extern void mu_set_variable (const char *name, SCM value); |
81 |
extern void mu_scm_init __P((void)); |
extern void mu_scm_init __P((void)); |
82 |
|
|
83 |
extern void mu_scm_mailbox_init __P((void)); |
extern void mu_scm_mailbox_init __P((void)); |