fix program return code of cpm and BatchBuild

BatchBuild/BatchBuild.icl

@@ -39,7 +39,7 @@ pinit force_rebuild ps
 	= BringProjectUptoDate force_rebuild cleanup ps
 where
 	cleanup exepath bool1 bool2 ps
-		= abortLog False "" ps
+		= abortLog (not bool2) "" ps
 
 wAbort message world
 //	# (console,world) = stdio world

cpm/CpmLogic.icl

@@ -121,7 +121,7 @@ doProjectAction cleanhome pwd  pn  (BuildProject force ideenvs) world
   = gst_world
   where
   pinit force_rebuild gst = BringProjectUptoDate force_rebuild cleanup gst
-  cleanup exepath bool1 bool2 ps = abortLog False "" ps
+  cleanup exepath bool1 bool2 ps = abortLog (not bool2) "" ps
 
 doProjectAction cleanhome pwd pn  (ProjectPath pa) world
   # (proj_path, project, ok, world) = openProject pwd pn cleanhome world