diff options
| author | Bram Moolenaar <Bram@vim.org> | 2007-05-12 15:32:12 +0000 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2007-05-12 15:32:12 +0000 |
| commit | 049377ee0f0f680fd69a90971fe3433048b2e68f (patch) | |
| tree | 1c171c3f0d6f64924357f9e73ea946a04fbd06b4 /src/if_mzsch.c | |
| parent | 6446f25b440ea3a4e6be776314eb93df68c8c55f (diff) | |
updated for version 7.1
Diffstat (limited to 'src/if_mzsch.c')
| -rw-r--r-- | src/if_mzsch.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/if_mzsch.c b/src/if_mzsch.c index a175b6e445..1f13e833f4 100644 --- a/src/if_mzsch.c +++ b/src/if_mzsch.c @@ -22,6 +22,7 @@ */ #include "vim.h" + #include "if_mzsch.h" /* Only do the following when the feature is enabled. Needed for "make @@ -219,7 +220,11 @@ static Scheme_Object *(*dll_scheme_byte_string_to_char_string)(Scheme_Object *s) # endif static void (*dll_scheme_close_input_port)(Scheme_Object *port); static void (*dll_scheme_count_lines)(Scheme_Object *port); +#if MZSCHEME_VERSION_MAJOR < 360 static Scheme_Object *(*dll_scheme_current_continuation_marks)(void); +#else +static Scheme_Object *(*dll_scheme_current_continuation_marks)(Scheme_Object *prompt_tag); +#endif static void (*dll_scheme_display)(Scheme_Object *obj, Scheme_Object *port); static char *(*dll_scheme_display_to_string)(Scheme_Object *obj, long *len); static int (*dll_scheme_eq)(Scheme_Object *obj1, Scheme_Object *obj2); @@ -2441,8 +2446,11 @@ raise_vim_exn(const char *add_info) else argv[0] = scheme_make_string(_("Vim error")); - /* TODO: proper argument */ +#if MZSCHEME_VERSION_MAJOR < 360 + argv[1] = scheme_current_continuation_marks(); +#else argv[1] = scheme_current_continuation_marks(NULL); +#endif scheme_raise(scheme_make_struct_instance(vim_exn, 2, argv)); } |