aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-07-26 11:04:33 -04:00
Code

updated for version 7.1-021

Browse Source
This commit is contained in:
Bram Moolenaar 2007-07-06 17:43:08 +00:00
parent 6a51606966
commit e2a49d8e5e
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/if_mzsch.c
View File

@ -308,6 +308,8 @@ static void (*dll_scheme_set_param)(Scheme_Config *c, int pos,
static Scheme_Config *(*dll_scheme_current_config)(void); static Scheme_Config *(*dll_scheme_current_config)(void);
static Scheme_Object *(*dll_scheme_char_string_to_byte_string) static Scheme_Object *(*dll_scheme_char_string_to_byte_string)
(Scheme_Object *s); (Scheme_Object *s);
static Scheme_Object *(*dll_scheme_char_string_to_path)
(Scheme_Object *s);
# endif # endif
/* arrays are imported directly */ /* arrays are imported directly */
@ -398,6 +400,8 @@ static Scheme_Object *(*dll_scheme_char_string_to_byte_string)
# define scheme_current_config dll_scheme_current_config # define scheme_current_config dll_scheme_current_config
# define scheme_char_string_to_byte_string \ # define scheme_char_string_to_byte_string \
dll_scheme_char_string_to_byte_string dll_scheme_char_string_to_byte_string
# define scheme_char_string_to_path \
dll_scheme_char_string_to_path
# endif # endif
typedef struct typedef struct
@ -498,6 +502,8 @@ static Thunk_Info mzsch_imports[] = {
{"scheme_current_config", (void **)&dll_scheme_current_config}, {"scheme_current_config", (void **)&dll_scheme_current_config},
{"scheme_char_string_to_byte_string", {"scheme_char_string_to_byte_string",
(void **)&dll_scheme_char_string_to_byte_string}, (void **)&dll_scheme_char_string_to_byte_string},
{"scheme_char_string_to_path",
(void **)&dll_scheme_char_string_to_path},
# endif # endif
{NULL, NULL}}; {NULL, NULL}};
@ -773,7 +779,15 @@ startup_mzscheme(void)
#ifdef MZSCHEME_COLLECTS #ifdef MZSCHEME_COLLECTS
/* setup 'current-library-collection-paths' parameter */ /* setup 'current-library-collection-paths' parameter */
scheme_set_param(scheme_config, MZCONFIG_COLLECTION_PATHS, scheme_set_param(scheme_config, MZCONFIG_COLLECTION_PATHS,
scheme_build_list(0, scheme_make_string(MZSCHEME_COLLECTS))); scheme_make_pair(
# if MZSCHEME_VERSION_MAJOR >= 299
scheme_char_string_to_path(
scheme_byte_string_to_char_string(
scheme_make_byte_string(MZSCHEME_COLLECTS))),
# else
scheme_make_string(MZSCHEME_COLLECTS),
# endif
scheme_null));
#endif #endif
#ifdef HAVE_SANDBOX #ifdef HAVE_SANDBOX
/* setup sandbox guards */ /* setup sandbox guards */

2
src/version.c
View File

@ -666,6 +666,8 @@ static char *(features[]) =
static int included_patches[] = static int included_patches[] =
{ /* Add new patch number below this line */ { /* Add new patch number below this line */
/**/
21,
/**/ /**/
20, 20,
/**/ /**/