--- a/Object.st Mon Mar 06 09:56:20 2006 +0100
+++ b/Object.st Mon Mar 06 09:57:09 2006 +0100
@@ -2868,8 +2868,6 @@
assert:aBooleanOrBlock
"fail, if the argument is not true and report an error"
- "{ Pragma: +optSpace }"
-
aBooleanOrBlock == true ifTrue:[^ self].
"/ could still be a block or false.
self
@@ -8270,8 +8268,8 @@
!
isBehavior
- "return true, if the receiver is some kind of class (i.e. behavior);
- false is returned here - the method is only redefined in Behavior."
+ "return true, if the receiver is describing another objects behavior.
+ False is returned here - the method is only redefined in Behavior."
^ false
!
@@ -8670,8 +8668,8 @@
!
isNameSpace
- "return true, if this is a nameSpace.
- false is returned here - the method is only redefined in Namespace."
+ "return true, if the receiver is a nameSpace.
+ False is returned here - the method is only redefined in Namespace."
^ false
@@ -8690,7 +8688,9 @@
!
isNil
- "return true, if the receiver is nil.
+ "Return true, if the receiver is nil.
+ Because isNil is redefined in UndefinedObject,
+ the receiver is definitely not nil here, so unconditionally return false.
Notice:
This method is open coded (inlined) by the compiler(s)
- redefining it may not work as expected."
@@ -8858,7 +8858,9 @@
!
notNil
- "return true, if the receiver is not nil.
+ "Return true, if the receiver is not nil.
+ Because notNil is redefined in UndefinedObject,
+ the receiver is definitely not nil here, so unconditionally return true.
Notice:
This method is open coded (inlined) by the compiler(s)
- redefining it may not work as expected."
@@ -9323,7 +9325,7 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.548 2006-03-03 19:33:58 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.549 2006-03-06 08:57:09 cg Exp $'
! !
Object initialize!