From 30d3515546cf244837c6340b6b87c5f51e68cbf4 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Tue, 17 Jan 2017 23:40:35 +0100
Subject: [location] Remove Loc.ghost.

Now it is a private field, locations are optional.
---
 plugins/syntax/nat_syntax.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'plugins/syntax/nat_syntax.ml')

diff --git a/plugins/syntax/nat_syntax.ml b/plugins/syntax/nat_syntax.ml
index 90d643b7f2..5cdd820247 100644
--- a/plugins/syntax/nat_syntax.ml
+++ b/plugins/syntax/nat_syntax.ml
@@ -33,21 +33,21 @@ let warn_large_nat =
                  strbrk "may vary from 5000 to 70000 depending on your system " ++
                  strbrk "limits and on the command executed).")
 
-let nat_of_int loc n =
+let nat_of_int ?loc n =
   if is_pos_or_zero n then begin
       if less_than threshold n then warn_large_nat ();
-      let ref_O = Loc.tag ~loc @@ GRef (glob_O, None) in
-      let ref_S = Loc.tag ~loc @@ GRef (glob_S, None) in
+      let ref_O = Loc.tag ?loc @@ GRef (glob_O, None) in
+      let ref_S = Loc.tag ?loc @@ GRef (glob_S, None) in
       let rec mk_nat acc n =
 	if n <> zero then
-	  mk_nat (Loc.tag ~loc @@ GApp (ref_S, [acc])) (sub_1 n)
+	  mk_nat (Loc.tag ?loc @@ GApp (ref_S, [acc])) (sub_1 n)
 	else
 	  acc
       in
       mk_nat ref_O n
     end
   else
-      user_err ~hdr:"nat_of_int"
+      user_err ?loc ~hdr:"nat_of_int"
        (str "Cannot interpret a negative number as a number of type nat")
 
 (************************************************************************)
-- 
cgit v1.2.3