# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1500306311 -7200
# Node ID 1f0b557bdb3f29702585de793f8ee5b973d869c7
# Parent  bd0a85c34562f6104feca6161db0540cad38d523
#OTHER by cg
+haltIfTrue / haltIfFalse

diff -r bd0a85c34562 -r 1f0b557bdb3f True.st
--- a/True.st	Mon Jul 17 17:45:10 2017 +0200
+++ b/True.st	Mon Jul 17 17:45:11 2017 +0200
@@ -178,6 +178,41 @@
     ^ 1
 ! !
 
+!True methodsFor:'debugging'!
+
+haltIfFalse
+    "halt if the receiver is false"
+
+    <resource: #skipInDebuggersWalkBack>
+
+    ^ self
+
+    "
+     3 haltIfNil
+     nil haltIfNil
+    "
+
+    "Created: / 17-07-2017 / 17:42:56 / cg"
+!
+
+haltIfTrue
+    "halt if the receiver is true"
+
+    <resource: #skipInDebuggersWalkBack>
+
+    self halt
+
+    "
+     3 haltIfNil
+     nil haltIfNil
+     
+     true haltIfTrue
+     false haltIfFalse
+    "
+
+    "Created: / 17-07-2017 / 17:43:32 / cg"
+! !
+
 !True methodsFor:'logical operations'!
 
 & aBoolean