--- a/MessageNode.st	Thu Jun 05 20:39:33 2003 +0200
+++ b/MessageNode.st	Mon Jun 09 15:14:39 2003 +0200
@@ -358,7 +358,7 @@
                 receiver possiblyInlined:true
             ].
         ].
-        (selector == #repeat) ifTrue:[
+        ((selector == #repeat) or:[selector == #loop]) ifTrue:[
             receiver isBlock ifTrue:[
                 receiver possiblyInlined:true
             ].
@@ -1373,7 +1373,7 @@
             ((selector == #whileTrue) or:[selector == #whileFalse]) ifTrue:[
                 ^ self codeWhileOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
             ].
-            (selector == #repeat) ifTrue:[
+            ((selector == #repeat) or:[selector == #loop]) ifTrue:[
                 valueNeeded ifFalse:[
                     ^ self codeRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
                 ]
@@ -1954,7 +1954,11 @@
 !
 
 codeRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
-    "generate code for [ ... ] repeat"
+    "generate code for 
+        [ ... ] repeat
+     and:
+        [ ... ] loop
+    "
 
     |pos|
 
@@ -3095,5 +3099,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.131 2003-06-03 11:04:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.132 2003-06-09 13:14:39 cg Exp $'
 ! !