Better Tcl compatibility for [lrepeat]

With zero count and also with no list elements

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

1 files changed, 6 insertions, 2 deletions

diff --git a/jim.c b/jim.c
index a03ff0b..dbe6d89 100644
--- a/jim.c
+++ b/jim.c
@@ -13163,11 +13163,15 @@ static int Jim_LrepeatCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *
     Jim_Obj *objPtr;
     long count;
 
-    if (argc < 3 || Jim_GetLong(interp, argv[1], &count) != JIM_OK || count <= 0) {
-        Jim_WrongNumArgs(interp, 1, argv, "positiveCount value ?value ...?");
+    if (argc < 2 || Jim_GetLong(interp, argv[1], &count) != JIM_OK || count < 0) {
+        Jim_WrongNumArgs(interp, 1, argv, "count ?value ...?");
         return JIM_ERR;
     }
 
+    if (count == 0 || argc == 2) {
+        return JIM_OK;
+    }
+
     argc -= 2;
     argv += 2;