Set $argc in jimsh

Apparently tclsh does this. It is just [llength $argv]

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 1 insertions, 0 deletions

diff --git a/jimsh.c b/jimsh.c
index d5ad678..63569a7 100644
--- a/jimsh.c
+++ b/jimsh.c
@@ -134,6 +134,7 @@ static void JimSetArgv(Jim_Interp *interp, int argc, char *const argv[])
     }
 
     Jim_SetVariableStr(interp, "argv", listObj);
+    Jim_SetVariableStr(interp, "argc", Jim_NewIntObj(interp, argc));
 }
 
 int main(int argc, char *const argv[])