diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-01 18:47:55 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-01 18:55:11 +0100 |
commit | cb290d81c46ec370e303e1414e203c40c8fa1174 (patch) | |
tree | 8f48d26fe7f68a905c2194239523c91316dc0139 /lib/genarg.ml | |
parent | 233a782a2336f003869f82e697a567ed02885f23 (diff) |
Removing RefArgType generic argument.
Diffstat (limited to 'lib/genarg.ml')
-rw-r--r-- | lib/genarg.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lib/genarg.ml b/lib/genarg.ml index 0f1e50568..6520669fa 100644 --- a/lib/genarg.ml +++ b/lib/genarg.ml @@ -14,7 +14,6 @@ type argument_type = | IntOrVarArgType | IdentArgType of bool | VarArgType - | RefArgType (* Specific types *) | GenArgType | ConstrArgType @@ -33,7 +32,6 @@ let rec argument_type_eq arg1 arg2 = match arg1, arg2 with | IntOrVarArgType, IntOrVarArgType -> true | IdentArgType b1, IdentArgType b2 -> (b1 : bool) == b2 | VarArgType, VarArgType -> true -| RefArgType, RefArgType -> true | GenArgType, GenArgType -> true | ConstrArgType, ConstrArgType -> true | ConstrMayEvalArgType, ConstrMayEvalArgType -> true @@ -54,7 +52,6 @@ let rec pr_argument_type = function | IdentArgType true -> str "ident" | IdentArgType false -> str "pattern_ident" | VarArgType -> str "var" -| RefArgType -> str "ref" | GenArgType -> str "genarg" | ConstrArgType -> str "constr" | ConstrMayEvalArgType -> str "constr_may_eval" |