I'm not sure if it makes sense, but the attached patch
would make the message a bit more informative.
s.
diff --git a/packages/stinst/compiler/StartCompiler.st b/packages/stinst/compiler/StartCompiler.st
index 0db49c3..839c9fb 100644
--- a/packages/stinst/compiler/StartCompiler.st
+++ b/packages/stinst/compiler/StartCompiler.st
@@ -330,7 +330,7 @@ Behavior extend [
onError:
[:l :m |
^aBlock
- value: 'a Smalltalk String'
+ value: 'a Smalltalk String: ' , ( aString contractTo: 40 )
value: l
value: m]
]
@@ -404,7 +404,7 @@ Behavior extend [
parser errorBlock:
[:m :l |
^aBlock
- value: 'a Smalltalk ' , aString class printString
+ value: 'a Smalltalk ' , aString class printString , ': ' , ( aString contractTo: 40 )
value: l - 1
value: m].
parser initializeParserWith: source type: #on:errorBlock:.
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
