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
address@hidden
http://lists.gnu.org/mailman/listinfo/help-smalltalk