From 4df2bea05faec1652c50ef683c31085bf8c8d823 Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Thu, 29 Nov 2012 09:57:22 +1100
Subject: [PATCH] Add BATCHEND callback

---
 exebuf.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/exebuf.c b/exebuf.c
index e5ae6c56..f4d0772b 100644
--- a/exebuf.c
+++ b/exebuf.c
@@ -296,6 +296,7 @@ int exeBufProcess(pExeBuf self, SicsInterp * pSics,
     DeleteDynString(command);
     if (SCGetInterrupt(pCon) >= eAbortBatch) {
       SCWrite(pCon, "ERROR: batch processing interrupted", eError);
+      InvokeCallBack(pCall, BATCHEND, self->name);
       SetStatus(eEager);
       if (pCall != NULL) {
          InvokeCallBack(pCall, BATCHEND, self->name);