Commits

Sébastien Ferré committed 87727d8

[intreln] bug fix

  • Participants
  • Parent commits 0f24459

Comments (0)

Files changed (1)

       | Rn (n,m) ->
 	  let n1 = n-1 in
 	  ( match vs with
-	  | [] -> f acc mu
+	  | [] ->
+	      if M.is_empty m
+	      then acc
+	      else f acc mu
 	  | v::vs1 ->
 	      (try
 		let x = List.assoc v mu in
 
     let rec group_by ps r =
       if Mask.dim ps = r.dim
-      then {dim = Mask.size ps;
+      then {dim = r.dim; (*Mask.size ps;*)
 	    data = repr (group_by_obj ps [] (obj r.dim r.data))}
       else raise Invalid_dimension
     and group_by_obj ps xs = function