changeset 1284:30f057789239

updated for version 7.1
author vimboss
date Sat, 12 May 2007 15:32:12 +0000
parents 5da72ac36f91
children 463e25d28b33
files Contents runtime/doc/howto.txt runtime/doc/quickfix.txt src/if_mzsch.c
diffstat 4 files changed, 15 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/Contents
+++ b/Contents
@@ -9,10 +9,10 @@ Vim		Vi IMproved.  A clone of the UNIX t
 		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.
 
 
--- 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
--- 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
--- 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_
 # 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));
 }