readdir: minor code cleanups

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

1 files changed, 15 insertions, 15 deletions

diff --git a/jim-readdir.c b/jim-readdir.c
index a405692..d7c0e40 100644
--- a/jim-readdir.c
+++ b/jim-readdir.c
@@ -1,4 +1,3 @@
-
 /*
  * Tcl readdir command.
  *
@@ -92,24 +91,25 @@ int Jim_ReaddirCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
         Jim_SetResultString(interp, strerror(errno), -1);
         return JIM_ERR;
     }
-    Jim_SetResultString(interp, strerror(errno), -1);
-
-    Jim_SetResult(interp, Jim_NewListObj(interp, NULL, 0));
+    else {
+        Jim_Obj *listObj = Jim_NewListObj(interp, NULL, 0);
 
-    while ((entryPtr = readdir(dirPtr)) != NULL) {
-        if (entryPtr->d_name[0] == '.') {
-            if (entryPtr->d_name[1] == '\0') {
-                continue;
+        while ((entryPtr = readdir(dirPtr)) != NULL) {
+            if (entryPtr->d_name[0] == '.') {
+                if (entryPtr->d_name[1] == '\0') {
+                    continue;
+                }
+                if ((entryPtr->d_name[1] == '.') && (entryPtr->d_name[2] == '\0'))
+                    continue;
             }
-            if ((entryPtr->d_name[1] == '.') && (entryPtr->d_name[2] == '\0'))
-                continue;
+            Jim_ListAppendElement(interp, listObj, Jim_NewStringObj(interp, entryPtr->d_name, -1));
         }
-        Jim_ListAppendElement(interp, Jim_GetResult(interp), Jim_NewStringObj(interp,
-                entryPtr->d_name, -1));
-    }
-    closedir(dirPtr);
+        closedir(dirPtr);
 
-    return JIM_OK;
+        Jim_SetResult(interp, listObj);
+
+        return JIM_OK;
+    }
 }
 
 int Jim_readdirInit(Jim_Interp *interp)