diff src/eval.c @ 4074:16e8a09e8ab0 v7.3.791

updated for version 7.3.791 Problem: MzScheme interface doesn't work propely. Solution: Make it work better. (Sergey Khorev)
author Bram Moolenaar <bram@vim.org>
date Wed, 30 Jan 2013 14:55:42 +0100
parents 42edc5dac33c
children 2b340e5c5baa
line wrap: on
line diff
--- a/src/eval.c
+++ b/src/eval.c
@@ -14333,6 +14333,22 @@ f_mzeval(argvars, rettv)
     str = get_tv_string_buf(&argvars[0], buf);
     do_mzeval(str, rettv);
 }
+
+    void
+mzscheme_call_vim(name, args, rettv)
+    char_u	*name;
+    typval_T	*args;
+    typval_T	*rettv;
+{
+    typval_T argvars[3];
+
+    argvars[0].v_type = VAR_STRING;
+    argvars[0].vval.v_string = name;
+    copy_tv(args, &argvars[1]);
+    argvars[2].v_type = VAR_UNKNOWN;
+    f_call(argvars, rettv);
+    clear_tv(&argvars[1]);
+}
 #endif
 
 /*