class: Parser
authorClaus Gittinger <cg@exept.de>
Sun, 29 Mar 2015 15:14:42 +0200
changeset 3620 d8494ffbee49
parent 3619 a30acfdf8c9a
child 3621 706bc503cdb4
class: Parser changed: #addAnnotationWithKey:andArguments:
Parser.st
--- 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