diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-13 13:42:04 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-13 13:42:04 +0000 |
commit | decb8c16274487ce3cac1e7d5de529b46b6d68e3 (patch) | |
tree | 02a41980403e4c3fbeab8259a95ea14ba1b80e65 /library | |
parent | 7dfacfe208a9fa5ad5f7669537c54609b4adf51e (diff) |
- méthode load sur les Hints
- CAST pris en compte dans Astterm
- Coercin.lookup_path_to_sort_from protégé par un try/with
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@248 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
-rw-r--r-- | library/goptions.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index a8b553f32..3a697cb6d 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -213,8 +213,8 @@ let declare_async_option cast uncast let _ = get_option key in error "Sorry, this option name is already used" with Not_found -> - if List.mem_assoc (nickname key) !param_table - then error "Sorry, this option name is already used"; + if List.mem_assoc (nickname key) !param_table then + error "Sorry, this option name is already used"; let cread () = cast (read ()) in let cwrite v = write (uncast v) in async_value_tab := OptionMap.add key (name,(cread,cwrite)) !async_value_tab |