diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-22 18:09:38 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-22 18:09:38 +0000 |
commit | 2e43b03b0bb88bd3b4cb7695d5079c51ca41b0a7 (patch) | |
tree | 2153243e54e6c729462b700bc2118095f40c592a /library/goptions.ml | |
parent | 62789dd765375bef0fb572603aa01039a82dd3b5 (diff) |
Monomorphization (library)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15993 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/goptions.ml')
-rw-r--r-- | library/goptions.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 2a97f6149..460b153de 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -82,7 +82,7 @@ module MakeTable = let cache_options (_,(f,p)) = match f with | GOadd -> t := MySet.add p !t | GOrmv -> t := MySet.remove p !t in - let load_options i o = if i=1 then cache_options o in + let load_options i o = if Int.equal i 1 then cache_options o in let subst_options (subst,(f,p as obj)) = let p' = A.subst subst p in if p' == p then obj else |