fix it so it compiles

[chiark-tcl.git] / base / scriptinv.c

diff --git a/base/scriptinv.c b/base/scriptinv.c
index 6dd53755e79963f7877c652dab926552faffac27..644459a0f0ec8ebd261ea39c10d399df2509dcc3 100644 (file)
--- 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);
 }