Parser.st
changeset 805 b11dcd88bcc6
parent 798 5b1da806cdf6
child 806 bbfd3018e32e
--- a/Parser.st	Wed Feb 03 15:15:49 1999 +0100
+++ b/Parser.st	Tue Feb 09 19:57:34 1999 +0100
@@ -3918,13 +3918,13 @@
         (#(BinaryOperator Keyword) includes:tokenType) ifTrue:[
             eMsg := ('error in primary; ' 
                     , tokenType printString , '(' , tokenName , ') ' ,
-                    ' unexpected')
+                    ' unexpected (missing receiver ?)')
         ] ifFalse:[
             eMsg := ('error in primary; ' 
                      , tokenType printString ,
                      ' unexpected') 
         ].
-        self syntaxError:eMsg
+        self syntaxError:eMsg position:tokenPosition to:source position
     ].
     ^ #Error
 
@@ -4702,6 +4702,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.189 1998-11-04 20:59:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.190 1999-02-09 18:57:34 cg Exp $'
 ! !
 Parser initialize!