On 12/11/2010 05:29 PM, Gwenaël Casaccio wrote:
Hi,

index a98719d..550ae39 100644
--- a/packages/stinst/compiler/StartCompiler.st
+++ b/packages/stinst/compiler/StartCompiler.st
@@ -84,14 +84,13 @@ Behavior extend [

      evalString: aString to: anObject [
         <category: 'compiling'>
-       ^STInST.STEvaluationDriver new parseSmalltalk: aString
-           with: self evaluatorClass
+       ^ self evalString: aString to: anObject ifError: [ :f :l :m |
self error: (m displayString) ]
      ]

      evalString: aString to: anObject ifError: aBlock [
         <category: 'compiling'>
         ^STInST.STEvaluationDriver new
-           parseSmalltalk: aString
+           parseSmalltalk: '^ [', aString, ' ] value'
             with: self evaluatorClass
             onError:
                 [:m :l |

Gwen

_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk


Thanks!

Paolo

_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

Reply via email to