ConstantNode.st
changeset 2266 5e7bafbb37c0
parent 2118 8ba726417c70
child 2320 4e58d12c5c1a
equal deleted inserted replaced
2265:b9d82cb3ecce 2266:5e7bafbb37c0
   323     "Modified: 14.4.1996 / 01:00:29 / cg"
   323     "Modified: 14.4.1996 / 01:00:29 / cg"
   324 !
   324 !
   325 
   325 
   326 isConstant
   326 isConstant
   327     ^ true
   327     ^ true
       
   328 !
       
   329 
       
   330 withConstantValueDo:aBlock
       
   331     "return true, if this evaluates to a constant value
       
   332      and evaluate aBlock with it"
       
   333 
       
   334     aBlock value:value.
       
   335     ^ true
   328 ! !
   336 ! !
   329 
   337 
   330 !ConstantNode class methodsFor:'documentation'!
   338 !ConstantNode class methodsFor:'documentation'!
   331 
   339 
   332 version
   340 version
   333     ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.43 2008-10-20 15:10:47 cg Exp $'
   341     ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.44 2009-11-06 18:15:23 cg Exp $'
   334 ! !
   342 !
       
   343 
       
   344 version_CVS
       
   345     ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.44 2009-11-06 18:15:23 cg Exp $'
       
   346 ! !