--- a/Parser.st Wed Mar 25 15:13:16 2015 +0100
+++ b/Parser.st Sun Mar 29 15:14:42 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -8885,7 +8887,7 @@
"/ was: annot := { key . arguments}.
annot := ParsedAnnotation key:key arguments:arguments.
- annot startPosition:annotationStartPosition endPosition:annotationEndPosition.
+ annot startPosition:annotationStartPosition endPosition:(annotationEndPosition ifNil:[ source position ]).
annotations := annotations copyWith:annot.
!
@@ -12247,11 +12249,11 @@
!Parser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.882 2015-03-25 14:13:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.883 2015-03-29 13:14:42 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.882 2015-03-25 14:13:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.883 2015-03-29 13:14:42 cg Exp $'
!
version_SVN