diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-16 01:29:07 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-16 03:53:40 +0200 |
| commit | 5a90c69f8e4699f205ec3e59cfd49ad9fb9f6f87 (patch) | |
| tree | 9d31cb58d1c6166beec1757668e73ad5d794b0d6 /ide/nanoPG.ml | |
| parent | 2c70dd6a256ed4cac2b74bd0c8719ab37fffcb84 (diff) | |
Turning CoqIDE preferences into new style.
Some old style references remain because all type converters are not
implemented yet.
Diffstat (limited to 'ide/nanoPG.ml')
| -rw-r--r-- | ide/nanoPG.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/nanoPG.ml b/ide/nanoPG.ml index 805ace935..0668ad09f 100644 --- a/ide/nanoPG.ml +++ b/ide/nanoPG.ml @@ -303,7 +303,7 @@ let init w nb ags = then false else begin eprintf "got key %s\n%!" (pr_key t); - if current.nanoPG then begin + if nanoPG#get then begin match find gui !cur t with | `Do e -> eprintf "run (%s) %s on %s\n%!" e.keyname e.doc (pr_status !status); |