X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Fscriptinv.c;h=644459a0f0ec8ebd261ea39c10d399df2509dcc3;hp=6dd53755e79963f7877c652dab926552faffac27;hb=500e760d7840a4968afc8a0d720d0019a5e422b4;hpb=4d5a1756e972ca3970cc5d7b9854a36ff3e47d1a

diff --git a/base/scriptinv.c b/base/scriptinv.c
index 6dd5375..644459a 100644
--- a/base/scriptinv.c
+++ b/base/scriptinv.c
@@ -65,6 +65,7 @@ x_rc:
 }
 
 void cht_scriptinv_invoke(ScriptToInvoke *si, int argc, Tcl_Obj *const *argv) {
+  int rc;
   rc= cht_scriptinv_invoke_fg(si, argc, argv);
   if (rc) Tcl_BackgroundError(si->ip);
 }