[svn] r6906: nemerle/trunk/ncc/parsing/MainParser.n

[VladD2]

Log:
Fix location of Variant option and call.

Author: VladD2
Date: Thu Nov 16 04:39:56 2006
New Revision: 6906

Modified:
   nemerle/trunk/ncc/parsing/MainParser.n

Modified: nemerle/trunk/ncc/parsing/MainParser.n
==============================================================================
--- nemerle/trunk/ncc/parsing/MainParser.n	(original)
+++ nemerle/trunk/ncc/parsing/MainParser.n	Thu Nov 16 04:39:56 2006
@@ -1576,8 +1576,9 @@
 
     make_operator_call (name : string, parms : list [PExpr], location : Location) : PExpr
     {
-      def loc = if (location.FileIndex == 0) parms.Head.Location + parms.Last.Location
-                else location;
+      def firstLoc = parms.Head.Location;
+      def loc = if (location.FileIndex == 0) firstLoc + parms.Last.Location
+                else if (firstLoc.CompareTo(location) > 0) location else firstLoc + location;
 
       match (name) {
         | "(" => PExpr.Call (loc, parms.Head, parms.Tail)