True.st
branchjv
changeset 17728 bbc5fa73dfab
parent 17711 39faaaf888b4
child 17732 a1892eeca6c0
equal deleted inserted replaced
17727:3945dfe4659c 17728:bbc5fa73dfab
    67 	- redefining it may not work as expected."
    67 	- redefining it may not work as expected."
    68 
    68 
    69     ^ aBlock value
    69     ^ aBlock value
    70 !
    70 !
    71 
    71 
       
    72 and:block1 and:block2
       
    73     "evaluate block1 if the receiver is true, 
       
    74      if that is also true, return the result from block2."
       
    75 
       
    76     ^ block1 value and:block2
       
    77 !
       
    78 
       
    79 and:block1 and:block2 and:block3
       
    80     block1 value ifFalse:[^ false].
       
    81     block2 value ifFalse:[^ false].
       
    82     ^ block3 value
       
    83 !
       
    84 
       
    85 and:block1 and:block2 and:block3 and:block4
       
    86     block1 value ifFalse:[^ false].
       
    87     block2 value ifFalse:[^ false].
       
    88     block3 value ifFalse:[^ false].
       
    89     ^ block4 value
       
    90 !
       
    91 
    72 ifFalse:aBlock
    92 ifFalse:aBlock
    73     "If the receiver is false, return the value of evaluating aBlock; nil otherwise.
    93     "If the receiver is false, return the value of evaluating aBlock; nil otherwise.
    74      Since the receiver is definitely true here, unconditionally return nil value.
    94      Since the receiver is definitely true here, unconditionally return nil value.
    75      Notice:
    95      Notice:
    76         This method is open coded (inlined) by the compiler(s)
    96         This method is open coded (inlined) by the compiler(s)
   112      since the receiver is known to be true simply return true.
   132      since the receiver is known to be true simply return true.
   113      Notice:
   133      Notice:
   114 	This method is open coded (inlined) by the compiler(s)
   134 	This method is open coded (inlined) by the compiler(s)
   115 	- redefining it may not work as expected."
   135 	- redefining it may not work as expected."
   116 
   136 
       
   137     ^ self
       
   138 !
       
   139 
       
   140 or:block1 or:block2
       
   141     ^ self
       
   142 !
       
   143 
       
   144 or:block1 or:block2 or:block3
       
   145     ^ self
       
   146 !
       
   147 
       
   148 or:block1 or:block2 or:block3 or:block4
   117     ^ self
   149     ^ self
   118 ! !
   150 ! !
   119 
   151 
   120 !True methodsFor:'converting'!
   152 !True methodsFor:'converting'!
   121 
   153 
   194 ! !
   226 ! !
   195 
   227 
   196 !True class methodsFor:'documentation'!
   228 !True class methodsFor:'documentation'!
   197 
   229 
   198 version
   230 version
   199     ^ '$Id: True.st 10448 2009-06-14 16:10:51Z vranyj1 $'
   231     ^ '$Id: True.st 10467 2009-08-19 16:14:36Z vranyj1 $'
   200 ! !
   232 ! !