diff options
| author | Pierre-Marie Pédrot | 2015-12-05 15:08:57 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-05 15:08:57 +0100 |
| commit | 071a458681254716a83b1802d5b6a30edda37892 (patch) | |
| tree | 67b89c51d89dbde94734440c9a229c0dfb1ec379 /tactics | |
| parent | 126a3c998c62bfd9f9b570f12b2e29576dd94cdd (diff) | |
Fixing compilation with old CAMLPX versions.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tauto.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 415bbb2908..537d10dd55 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -137,7 +137,7 @@ let tacticIn tac name = let push_ist ist args = let fold accu (id, arg) = Id.Map.add (Id.of_string id) arg accu in let lfun = List.fold_left fold ist.lfun args in - { ist with lfun } + { ist with lfun = lfun } let is_empty _ ist = if is_empty_type (assoc_var "X1" ist) then idtac else fail |