diff options
Diffstat (limited to 'parsing/q_coqast.ml4')
| -rw-r--r-- | parsing/q_coqast.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/q_coqast.ml4 b/parsing/q_coqast.ml4 index 90d2f1babe..2161e86b62 100644 --- a/parsing/q_coqast.ml4 +++ b/parsing/q_coqast.ml4 @@ -40,7 +40,7 @@ let rec expr_of_ast = function | Coqast.Id loc id when is_meta id -> <:expr< Coqast.Id loc $anti loc id$ >> | Coqast.Node _ "$VAR" [Coqast.Nmeta loc x] -> <:expr< let s = $anti loc x$ in - if String.length s > 0 && s.[0] = '$' then + if String.length s > 0 && String.sub s 0 1 = "$" then failwith "Wrong ast: $VAR should not be bound to a meta variable" else Coqast.Nvar loc (Names.id_of_string s) >> |