MessageNode.st
changeset 567 a6e4c44ff326
parent 565 00673e9d6edc
child 570 e55ab798d077
--- a/MessageNode.st	Fri Jun 27 14:08:46 1997 +0200
+++ b/MessageNode.st	Fri Jun 27 18:33:17 1997 +0200
@@ -835,9 +835,7 @@
                 "/ now, always inline #timesRepeat:;
                 "/ the receiver must understand #> and #-
                 
-"/                (receiver isConstant and:[receiver evaluate isNumber]) ifTrue:[
-                    ^ self codeTimesRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
-"/                ]
+               ^ self codeTimesRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
             ].
 
             ((selector == #whileTrue:) or:[selector == #whileFalse:]) ifTrue:[
@@ -1064,7 +1062,7 @@
     ].
 
     "Modified: 3.9.1995 / 12:55:42 / claus"
-    "Modified: 27.6.1997 / 13:41:41 / cg"
+    "Modified: 27.6.1997 / 15:08:45 / cg"
 !
 
 codeOrIfElseOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
@@ -2122,5 +2120,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.74 1997-06-27 12:08:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.75 1997-06-27 16:33:17 cg Exp $'
 ! !