diff options
| -rw-r--r-- | Contents | 8 | ||||
| -rw-r--r-- | runtime/doc/howto.txt | 2 | ||||
| -rw-r--r-- | runtime/doc/quickfix.txt | 2 | ||||
| -rw-r--r-- | src/if_mzsch.c | 10 |
4 files changed, 15 insertions, 7 deletions
@@ -9,10 +9,10 @@ Vim Vi IMproved. A clone of the UNIX text editor Vi. Very useful messages, shows current file name in window title, on-line help, rectangular cut/paste, etc., etc., etc... - Version 7.1b. Also runs under UNIX, MSDOS and other systems. - vim71brt.tgz contains the documentation and syntax files. - vim71bbin.tgz contains the binaries. - vim71bsrc.tgz contains the sources. + Version 7.1. Also runs under UNIX, MSDOS and other systems. + vim71rt.tgz contains the documentation and syntax files. + vim71bin.tgz contains the binaries. + vim71src.tgz contains the sources. Author: Bram Moolenaar et al. diff --git a/runtime/doc/howto.txt b/runtime/doc/howto.txt index 1a8833b759..cb76fb42ca 100644 --- a/runtime/doc/howto.txt +++ b/runtime/doc/howto.txt @@ -1,4 +1,4 @@ -*howto.txt* For Vim version 7.1b. Last change: 2006 Apr 02 +*howto.txt* For Vim version 7.1. Last change: 2006 Apr 02 VIM REFERENCE MANUAL by Bram Moolenaar diff --git a/runtime/doc/quickfix.txt b/runtime/doc/quickfix.txt index 942823d5f3..a40cb9e49e 100644 --- a/runtime/doc/quickfix.txt +++ b/runtime/doc/quickfix.txt @@ -1,4 +1,4 @@ -*quickfix.txt* For Vim version 7.1b. Last change: 2007 May 10 +*quickfix.txt* For Vim version 7.1. Last change: 2007 May 10 VIM REFERENCE MANUAL by Bram Moolenaar 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)); } |