diff options
Diffstat (limited to 'src/tac2stdlib.ml')
| -rw-r--r-- | src/tac2stdlib.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml index 8fdf9c6d8c..5c8337d41a 100644 --- a/src/tac2stdlib.ml +++ b/src/tac2stdlib.ml @@ -189,7 +189,7 @@ end let () = define_prim1 "tac_egeneralize" begin fun cl -> let cast = function | ValBlk (0, [| c; occs; na |]) -> - ((to_occurrences Value.to_int c, Value.to_constr c), to_name na) + ((to_occurrences Value.to_int occs, Value.to_constr c), to_name na) | _ -> assert false in let cl = Value.to_list cast cl in |