updated for version 7.1
diff --git a/Contents b/Contents
index 2a59238..2a5de88 100644
--- a/Contents
+++ b/Contents
@@ -9,10 +9,10 @@
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 1a8833b..cb76fb4 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 942823d..a40cb9e 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 a175b6e..1f13e83 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 @@
# 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 @@
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));
}