Ver Fonte

Fixed ".." not consuming EOL sometimes.

woollybah há 11 anos atrás
pai
commit
30662a1973
1 ficheiros alterados com 6 adições e 2 exclusões
  1. 6 2
      parser.bmx

+ 6 - 2
parser.bmx

@@ -2007,7 +2007,7 @@ Type TParser
 
 	'handle end-of-line "dot dot return"-line connector
 	'-> skips EOL tokens
-	Method HandleDotsLineConnector()
+	Method HandleDotsLineConnector(eatToke:Int = False)
 
 		Local tok:TToker = New TToker.Copy(_toker)
 
@@ -2033,6 +2033,10 @@ Type TParser
 				NextToke
 			End If
 		End If
+		
+		If eatToke Then
+			NextToke
+		End If
 	End Method
 
 	'should return a specific "metadata object" ?
@@ -2136,7 +2140,7 @@ Type TParser
 			Local nargs:Int
 			Repeat
 				' handle end-of-line "dot dot return"
-				If _toke =".." Then HandleDotsLineConnector()
+				If _toke =".." Then HandleDotsLineConnector(True)
 
 				Local argId$=ParseIdent()