- Fixed supressed error messages

2009-02-20 08:38:26 +00:00
parent 794f5cf29a
commit a0b3939b5b
1 changed files with 3 additions and 3 deletions
--- a/exebuf.c
+++ b/exebuf.c
@ -237,9 +237,9 @@ int exeBufProcess(pExeBuf self, SicsInterp * pSics,
        SCWrite(pCon, GetCharArray(command), eError);
        SCWrite(pCon, "ERROR: end of Tcl error block", eLogError);
      } else {
-        /*
-           SICS error: has already been reported
-         */
+    	if(strstr(pTcl->result, "ERROR") != NULL){
+    		SCPrintf(pCon,eError,"%s occurred in %s", pTcl->result, cmd );
+    	}
        pCon->sicsError = 0;
      }
    }