Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Object
authorClaus Gittinger <cg@exept.de>
Sat, 07 Feb 2015 15:38:59 +0100
changeset 17437 9662511375cf
parent 17436 1b392b8e6cb4
child 17438 fa80b8989917
class: Object changed: #assert: #assert:message:
Object.st file | annotate | diff | comparison | revisions 
--- a/Object.st	Sat Feb 07 15:38:04 2015 +0100
+++ b/Object.st	Sat Feb 07 15:38:59 2015 +0100
@@ -2860,15 +2860,15 @@
     <resource: #skipInDebuggersWalkBack>
 
     aBooleanOrBlock == true ifTrue:[^ self].
-    (Smalltalk at:#IgnoreAssertion ifAbsent:false) == true ifTrue:[^ self].
+    (Smalltalk ignoreAssertions) ifTrue:[^ self].
 
     "/ could still be a block or false.
     (aBooleanOrBlock value) ifFalse:[
-	AssertionFailedError
-	    raiseRequestWith:self
-	    errorString:('Assertion failed in ',
-			 thisContext methodHome sender printString,
-			 '[', thisContext  methodHome sender lineNumber printString,']')
+        AssertionFailedError
+            raiseRequestWith:self
+            errorString:('Assertion failed in ',
+                         thisContext methodHome sender printString,
+                         '[', thisContext  methodHome sender lineNumber printString,']')
     ].
 
     "
@@ -2886,12 +2886,13 @@
     <resource: #skipInDebuggersWalkBack>
 
     aBooleanOrBlock == true ifTrue:[^ self].
-    (Smalltalk at:#IgnoreAssertion ifAbsent:false) == true ifTrue:[^ self].
-
+    (Smalltalk ignoreAssertions) ifTrue:[^ self].
+
+    "/ could still be a block or false.
     (aBooleanOrBlock value) ifFalse:[
-	AssertionFailedError
-	    raiseRequestWith:self
-	    errorString:(messageIfFailing, ' {',thisContext methodHome sender "methodHome" printString,' }')
+        AssertionFailedError
+            raiseRequestWith:self
+            errorString:(messageIfFailing, ' {',thisContext methodHome sender "methodHome" printString,' }')
     ].
 
     "
@@ -10182,11 +10183,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.788 2015-02-07 12:28:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.789 2015-02-07 14:38:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.788 2015-02-07 12:28:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.789 2015-02-07 14:38:59 cg Exp $'
 !
 
 version_SVN
hg/stx-libbasic