diff options
Diffstat (limited to 'contrib/interface/name_to_ast.ml')
-rw-r--r-- | contrib/interface/name_to_ast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/name_to_ast.ml b/contrib/interface/name_to_ast.ml index 6f1be02fb..00259ef99 100644 --- a/contrib/interface/name_to_ast.ml +++ b/contrib/interface/name_to_ast.ml @@ -170,7 +170,7 @@ let constant_to_ast_list sp = errorlabstrm "print" [< 'sTR "printing of FW terms not implemented" >];; let variable_to_ast_list sp = - let ((id, c, v), _, _) = get_variable sp in + let ((id, c, v), _) = get_variable sp in let l = implicits_of_var sp in (match c with None -> |