Fix definition of __LOC__ to reintroduce the magic.

generator/stdlib_ml/stdlib.ml

@@ -17,7 +17,7 @@ let ( && ) = Pervasives.( && );;
 let ( || ) = Pervasives.( || );;
 
 (**{6 Debugging }*)
-let __LOC__ = Pervasives.__LOC__;;
+external __LOC__ : string = "%loc_LOC"
 
 (**{6 Integer arithmetic }*)
 let ( + ) = Pervasives.( + );;

generator/stdlib_ml/stdlib.mli

@@ -38,7 +38,7 @@ val ( && ) : bool -> bool -> bool
 val ( || ) : bool -> bool -> bool
 
 (**{6 Debugging }*)
-val __LOC__ : string
+external __LOC__ : string = "%loc_LOC"
 
 (**{6 Integer arithmetic }*)
 val ( + ) : int -> int -> int