*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 14 Sep 2009 14:49:49 +0200
changeset 11917 de1675e8ba46
parent 11916 75848f69eeb9
child 11918 d401a6edcefc
*** empty log message ***
False.st
--- a/False.st	Fri Sep 11 17:56:16 2009 +0200
+++ b/False.st	Mon Sep 14 14:49:49 2009 +0200
@@ -60,16 +60,20 @@
 
 and:aBlock
     "evaluate aBlock if the receiver is true.
-     (since the receiver is false return false).
+     (since the receiver is known to be false here, always return false here).
      Notice:
-	This method is open coded (inlined) by the compiler(s)
-	- redefining it may not work as expected."
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ self
 !
 
 and:block1 and:block2
-    "return false"
+    "evaluate block1 if the receiver is true; if that also returns true, evaluate block2.
+     (since the receiver is known to be false here, always return false here).
+     Notice:
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ self
 !
@@ -231,5 +235,5 @@
 !False class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.27 2009-07-31 08:12:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.28 2009-09-14 12:49:49 cg Exp $'
 ! !