updated for version 7.2-320

diff --git a/src/if_mzsch.c b/src/if_mzsch.c
index d2d9617a76a6d7ba913a7ac48029da778d6d0b0e..349945183e62780df119776d8ee16c06e60a90fd 100644 (file)
--- a/src/if_mzsch.c
+++ b/src/if_mzsch.c
@@ -70,14 +70,6 @@ typedef struct
     Scheme_Object   *port;
 } Port_Info;
 
-/* info for do_apply */
-typedef struct
-{
-    Scheme_Object   *proc;
-    int                    argc;
-    Scheme_Object   **argv;
-} Apply_Info;
-
 /*
  *========================================================================
  *  Vim-Control Commands
@@ -160,7 +152,6 @@ static Scheme_Object *_apply_thunk_catch_exceptions(
 static Scheme_Object *extract_exn_message(Scheme_Object *v);
 static Scheme_Object *do_eval(void *, int noargc, Scheme_Object **noargv);
 static Scheme_Object *do_load(void *, int noargc, Scheme_Object **noargv);
-static Scheme_Object *do_apply(void *, int noargc, Scheme_Object **noargv);
 static void register_vim_exn(void);
 static vim_mz_buffer *get_buffer_arg(const char *fname, int argnum,
        int argc, Scheme_Object **argv);
@@ -1056,7 +1047,7 @@ mzscheme_init(void)
        MZ_GC_REG();
        config = scheme_config;
        MZ_GC_CHECK();
-       /* recreate ports each call effectivelly clearing these ones */
+       /* recreate ports each call effectively clearing these ones */
        curout = scheme_make_string_output_port();
        MZ_GC_CHECK();
        curerr = scheme_make_string_output_port();
@@ -1196,36 +1187,6 @@ ex_mzscheme(exarg_T *eap)
     }
 }
 
-/*
- * apply MzScheme procedure with arguments,
- * handling errors
- */
-    Scheme_Object *
-mzvim_apply(Scheme_Object *proc, int argc, Scheme_Object **argv)
-{
-    if (mzscheme_init())
-       return FAIL;
-    else
-    {
-       Apply_Info      data = {NULL, 0, NULL};
-       Scheme_Object   *ret = NULL;
-
-       MZ_GC_DECL_REG(5);
-       MZ_GC_VAR_IN_REG(0, ret);
-       MZ_GC_VAR_IN_REG(1, data.proc);
-       MZ_GC_ARRAY_VAR_IN_REG(2, data.argv, argc);
-       MZ_GC_REG();
-
-       data.proc = proc;
-       data.argc = argc;
-       data.argv = argv;
-
-       eval_with_exn_handling(&data, do_apply, &ret);
-       MZ_GC_UNREG();
-       return ret;
-    }
-}
-
     static Scheme_Object *
 do_load(void *data, int noargc, Scheme_Object **noargv)
 {
@@ -1257,7 +1218,7 @@ do_load(void *data, int noargc, Scheme_Object **noargv)
        MZ_GC_CHECK();
     }
 
-    /* errors will be caught in do_mzscheme_comamnd and ex_mzfile */
+    /* errors will be caught in do_mzscheme_command and ex_mzfile */
     scheme_close_input_port(pinfo->port);
     MZ_GC_CHECK();
     pinfo->port = NULL;
@@ -1348,13 +1309,6 @@ do_eval(void *s, int noargc, Scheme_Object **noargv)
     return scheme_eval_string_all((char *)s, environment, TRUE);
 }
 
-    static Scheme_Object *
-do_apply(void *a, int noargc, Scheme_Object **noargv)
-{
-    Apply_Info *info = (Apply_Info *)a;
-    return scheme_apply(info->proc, info->argc, info->argv);
-}
-
 /*
  *========================================================================
  *  3.  MzScheme I/O Handlers
@@ -2128,7 +2082,7 @@ get_buffer_line_list(void *data, int argc, Scheme_Object **argv)
     static Scheme_Object *
 set_buffer_line(void *data, int argc, Scheme_Object **argv)
 {
-    /* First of all, we check the the of the supplied MzScheme object.
+    /* First of all, we check the value of the supplied MzScheme object.
      * There are three cases:
      *   1. #f - this is a deletion.
      *   2. A string      - this is a replacement.
@@ -2428,7 +2382,7 @@ set_buffer_line_list(void *data, int argc, Scheme_Object **argv)
 /*
  * (insert-buff-line-list {linenr} {string/string-list} [buffer])
  *
- * Insert a number of lines into the specified buffer after the specifed line.
+ * Insert a number of lines into the specified buffer after the specified line.
  * The line number is in Vim format (1-based). The lines to be inserted are
  * given as an MzScheme list of string objects or as a single string. The lines
  * to be added are checked for validity and correct format. Errors are

diff --git a/src/proto/if_mzsch.pro b/src/proto/if_mzsch.pro
index f61a087d6277b8e46bece217d631862e133d26f1..37bfbd890b79601b45be9a246071adcb7c2f9409 100644 (file)
--- a/src/proto/if_mzsch.pro
+++ b/src/proto/if_mzsch.pro
@@ -13,8 +13,6 @@ win_T *get_valid_window __ARGS((void *));
 void mzvim_check_threads __ARGS((void));
 void mzvim_reset_timer __ARGS((void));
 void *mzvim_eval_string __ARGS((char_u *str));
-struct Scheme_Object *mzvim_apply __ARGS((struct Scheme_Object *, int argc,
-    struct Scheme_Object **));
 int mzthreads_allowed __ARGS((void));
 void mzscheme_main __ARGS((void));
 /* vim: set ft=c : */

diff --git a/src/version.c b/src/version.c
index 3d9b7b6e9df9244693320b51cdd133abc212b0bc..5aae1bb5deacd4c90aceb0ecd25e755e3c0d3cc7 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -681,6 +681,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    320,
 /**/
     319,
 /**/