From 63a15ef00bb8a8999e99791e77a643056106780c Mon Sep 17 00:00:00 2001
From: hauser_n <hauser_n>
Date: Mon, 1 May 2006 00:37:07 +0000
Subject: [PATCH] List items should not be separated by spaces.

---
 sicslist.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/sicslist.c b/sicslist.c
index 11a03a03..52bfe9d0 100644
--- a/sicslist.c
+++ b/sicslist.c
@@ -24,7 +24,7 @@ static void listAllObjects(SConnection *pCon, SicsInterp *pSics){
     while(pCom != NULL){
         Tcl_DStringAppend(&lst,pCom->pName,-1);
         pCom = pCom->pNext;
-        Tcl_DStringAppend(&lst, ", ",-1);
+        Tcl_DStringAppend(&lst, ",",-1);
     }
     Tcl_DStringAppend(&lst,"ENDLIST",-1);
     SCWrite(pCon,Tcl_DStringValue(&lst), eValue);
@@ -192,7 +192,7 @@ static void listToString(int list,Tcl_DString *txt){
         pPtr = (char *)LLDnodePtr(list);
         if(pPtr != NULL){
             Tcl_DStringAppend(txt,pPtr,-1);
-            Tcl_DStringAppend(txt, ", ",-1);
+            Tcl_DStringAppend(txt, ",",-1);
         }
         status = LLDnodePtr2Next(list);
     }
@@ -257,7 +257,7 @@ static void printObjectsMatchingKeyVal(SicsInterp *pSics,
         }
         if(status == 1){
             Tcl_DStringAppend(&result,pCom->pName,-1);
-            Tcl_DStringAppend(&result, ", ",-1);
+            Tcl_DStringAppend(&result, ",",-1);
         }                        
         pCom = pCom->pNext;
     }
@@ -441,7 +441,7 @@ static void printMatch(SConnection *pCon, SicsInterp *pSics,
     while(current != NULL){
         if(!match(mask,current->pName)){
             Tcl_DStringAppend(&txt, current->pName,-1);
-            Tcl_DStringAppend(&txt, ", ",-1);
+            Tcl_DStringAppend(&txt, ",",-1);
         }
         current = current->pNext;
     }