File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -92,7 +92,7 @@ let word_of_pos_bigint ?loc hght n =
92
92
let ref_WW = DAst. make ?loc @@ GRef (Lazy. force zn2z_WW, None ) in
93
93
let rec decomp hgt n =
94
94
if hgt < = 0 then
95
- DAst. make ?loc (GInt (Notation . int63_of_pos_bigint n))
95
+ DAst. make ?loc (GInt (PrimNotations . int63_of_pos_bigint n))
96
96
else if Z. equal n Z. zero then
97
97
DAst. make ?loc @@ GApp (ref_W0, [DAst. make ?loc @@ GHole (GInternalHole )])
98
98
else
@@ -203,7 +203,7 @@ let bignums_obj =
203
203
204
204
let declare_numeral_interpreter uid sc dir interp (patl ,uninterp ,b ) =
205
205
(* unsynchronized state *)
206
- let uid = Notation . register_bignumeral_interpretation uid (interp,uninterp) in
206
+ let uid = PrimNotations . register_bignumeral_interpretation uid (interp,uninterp) in
207
207
let interp () = Lib. add_leaf (bignums_obj {
208
208
(* we wrap in out own object (to get superglobal instead of export),
209
209
so we pass local to the Notation layer *)
You can’t perform that action at this time.
0 commit comments