mercurial/HGCommand.st
branchhg-command-server-support
changeset 247 bf5bfe409ff8
parent 243 c665ef80dacc
child 251 8ad8b1147873
--- a/mercurial/HGCommand.st	Thu Mar 07 10:29:56 2013 +0000
+++ b/mercurial/HGCommand.st	Fri Mar 08 20:04:25 2013 +0000
@@ -788,14 +788,16 @@
 
 status: status result: res
     "Called when hg command finishes, passing it's status and result from parser"
-
-    status success ifFalse:[
+    status code == 1 ifTrue:[
+        ^#()
+    ].
+    status success  ifFalse:[
         HGCommandError raiseErrorString: ('hg command failed (status %1)' expandMacrosWith: status code) .
     ].
     ^res
 
     "Created: / 15-11-2012 / 17:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 04-02-2013 / 12:12:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-03-2013 / 19:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGCommand::add methodsFor:'accessing'!