diff options
| author | letouzey | 2004-03-25 15:09:19 +0000 |
|---|---|---|
| committer | letouzey | 2004-03-25 15:09:19 +0000 |
| commit | 878f4d57ca5749855e146a89a2130960478fee05 (patch) | |
| tree | ffd5561f5b4fc880d2c5e1c534678527bc872a0c | |
| parent | 830bca02d66828a4e7633a0c71fbd4fed4b6dff8 (diff) | |
me = andouille
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5567 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/table.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/table.ml b/contrib/extraction/table.ml index 2c7a901c9d..54b083e18a 100644 --- a/contrib/extraction/table.ml +++ b/contrib/extraction/table.ml @@ -258,7 +258,7 @@ let _ = declare_bool_option {optsync = true; optname = "Extraction Optimize"; optkey = SecondaryTable ("Extraction", "Optimize"); - optread = (fun () -> !int_flag_ref = 0); + optread = (fun () -> !int_flag_ref <> 0); optwrite = (fun b -> chg_flag (if b then int_flag_init else 0))} let _ = declare_int_option |