# HG changeset patch
# User Bram Moolenaar <Bram@vim.org>
# Date 1602090904 -7200
# Node ID c3e3c5707fe944858737af84942c3dbd87408363
# Parent  6325ef9143bc11dc9f89a759a0ff00aaa1e64fb1
patch 8.2.1812: Vim9: nested closure throws an internal error

Commit: https://github.com/vim/vim/commit/0876c78527469ddf50c23244566dd5bc35004307
Author: Bram Moolenaar <Bram@vim.org>
Date:   Wed Oct 7 19:08:04 2020 +0200

    patch 8.2.1812: Vim9: nested closure throws an internal error

    Problem:    Vim9: nested closure throws an internal error.
    Solution:   Do not skip a local variable with a partial. (closes https://github.com/vim/vim/issues/7065)

diff --git a/src/testdir/test_vim9_func.vim b/src/testdir/test_vim9_func.vim
--- a/src/testdir/test_vim9_func.vim
+++ b/src/testdir/test_vim9_func.vim
@@ -1388,6 +1388,20 @@ def Test_double_closure_fails()
   CheckScriptSuccess(lines)
 enddef
 
+def Test_nested_closure_used()
+  var lines =<< trim END
+      vim9script
+      def Func()
+        var x = 'hello'
+        var Closure = {-> x}
+        g:Myclosure = {-> Closure()}
+      enddef
+      Func()
+      assert_equal('hello', g:Myclosure())
+  END
+  CheckScriptSuccess(lines)
+enddef
+
 def Test_nested_closure_fails()
   var lines =<< trim END
     vim9script
diff --git a/src/version.c b/src/version.c
--- a/src/version.c
+++ b/src/version.c
@@ -751,6 +751,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    1812,
+/**/
     1811,
 /**/
     1810,
diff --git a/src/vim9execute.c b/src/vim9execute.c
--- a/src/vim9execute.c
+++ b/src/vim9execute.c
@@ -377,10 +377,11 @@ handle_closure_in_use(ectx_T *ectx, int 
 	    tv = STACK_TV(ectx->ec_frame_idx + STACK_FRAME_SIZE + idx);
 
 	    // Do not copy a partial created for a local function.
-	    // TODO: this won't work if the closure actually uses it.  But when
+	    // TODO: This won't work if the closure actually uses it.  But when
 	    // keeping it it gets complicated: it will create a reference cycle
 	    // inside the partial, thus needs special handling for garbage
 	    // collection.
+	    // For now, decide on the reference count.
 	    if (tv->v_type == VAR_PARTIAL && tv->vval.v_partial != NULL)
 	    {
 		int i;
@@ -389,7 +390,8 @@ handle_closure_in_use(ectx_T *ectx, int 
 		{
 		    partial_T *pt = ((partial_T **)gap->ga_data)[gap->ga_len
 							  - closure_count + i];
-		    if (tv->vval.v_partial == pt)
+
+		    if (tv->vval.v_partial == pt && pt->pt_refcount < 2)
 			break;
 		}
 		if (i < closure_count)