[r2003-05-10 22:14:17 by cvscast] Location for [...]

Original author: cvscast
Date: 2003-05-10 22:14:17+00:00

parser/parser.ml

@@ -194,12 +194,14 @@ EXTEND
     | "("; l = LIST1 expr SEP ","; ")" -> exp loc (tuple l)
     | "[";  l = LIST0 seq_elem; e = OPT [ ";"; e = expr -> e ]; "]" ->
 	let e = match e with Some e -> e | None -> cst_nil in
-	List.fold_right 
-	  (fun x q ->
-	     match x with
-	       | `Elems l -> tuple_queue l q
-	       | `Explode x -> Op ("@",[x;q])
-	  ) l e
+	let l = List.fold_right 
+		  (fun x q ->
+		     match x with
+		       | `Elems l -> tuple_queue l q
+		       | `Explode x -> Op ("@",[x;q])
+		  ) l e
+	in
+	exp loc l
     | t = [ a = TAG -> 
 	      exp loc (Cst (Types.Atom (Atoms.mk a)))
 	  | "<"; e = expr LEVEL "no_appl" -> e ];