On 09/24/2011 07:37 PM, Holger Hans Peter Freyther wrote:
>
> aNode: 'RBMessageNode(self lastUsed + 1 to: ports size do: alloc)'
> ^^^^^^^^^^^^
>
> (block arguments size = 1 and: [block body temporaries isEmpty])
> ifFalse: [^false].
>
> so it needs a similar check if it is a block... or can act like a block?
>
diff --git a/packages/stinst/parser/STCompiler.st
b/packages/stinst/parser/STCompiler.st
index 4235d41..74fc9a8 100644
--- a/packages/stinst/parser/STCompiler.st
+++ b/packages/stinst/parser/STCompiler.st
@@ -780,6 +780,7 @@ indexed'' bytecode. The resulting stream is
stop := step. "to:"
step := block. "by:"
block := each "do:"].
+ block isBlock ifFalse: [^false].
(block arguments size = 1 and: [block body temporaries isEmpty])
ifFalse: [^false].
stop isNil
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
