On 12/11/2010 05:29 PM, Gwenaël Casaccio wrote:
> evalString: aString to: anObject ifError: aBlock [
> <category: 'compiling'>
> ^STInST.STEvaluationDriver new
> - parseSmalltalk: aString
> + parseSmalltalk: '^ [', aString, ' ] value'
> with: self evaluatorClass
> onError:
> [:m :l |
Here is the correct fix, but the above code definitely set me on the right
track, so thanks!
diff --git a/packages/stinst/parser/STFileParser.st
b/packages/stinst/parser/STFileParser.st
index 205a595..cdc4914 100644
--- a/packages/stinst/parser/STFileParser.st
+++ b/packages/stinst/parser/STFileParser.st
@@ -128,4 +128,5 @@ RBParser subclass: STFileParser [
tags := nil.
node := self parseStatements.
+ node addReturn.
node comments isNil
ifTrue: [node comments: comments]
Paolo
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
