commit 049377ee0f0f680fd69a90971fe3433048b2e68f
author Bram Moolenaar <Bram@vim.org> Sat May 12 15:32:12 2007 +0000
committer Bram Moolenaar <Bram@vim.org> Sat May 12 15:32:12 2007 +0000
tree 1c171c3f0d6f64924357f9e73ea946a04fbd06b4
parent 6446f25b440ea3a4e6be776314eb93df68c8c55f

updated for version 7.1

src/if_mzsch.c

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));
 }