accept decl-clash.*.ok (#215)

Author: ggreif

src/compile.ml

@@ -1147,7 +1147,7 @@ module BoxedInt = struct
      Small values (just <2^5 for now, so that both code paths are well-tested)
      are stored unboxed, tagged, see BitTagged.
 
-     The heap layout of a BoxedWord is:
+     The heap layout of a BoxedInt is:
 
        ┌─────┬─────┬─────┐
        │ tag │    i64    │

test/fail/ok/decl-clash.run-ir.ok

@@ -1,13 +1,25 @@
-prelude:50.1-75.2: internal error, Env.Make(X).Clash("test")
+prelude:66.1-91.2: internal error, Env.Make(X).Clash("test")
 
 Last environment:
 @new_async = func
 Array_init = func
 Array_tabulate = func
 abs = func
 ignore = func
+intToWord16 = func
+intToWord32 = func
+intToWord8 = func
+natToWord16 = func
+natToWord32 = func
+natToWord8 = func
 print = func
 printInt = func
 range = func
 revrange = func
+word16ToInt = func
+word16ToNat = func
+word32ToInt = func
+word32ToNat = func
+word8ToInt = func
+word8ToNat = func
 

test/fail/ok/decl-clash.run-low.ok

@@ -1,13 +1,25 @@
-prelude:50.1-75.2: internal error, Env.Make(X).Clash("test")
+prelude:66.1-91.2: internal error, Env.Make(X).Clash("test")
 
 Last environment:
 @new_async = func
 Array_init = func
 Array_tabulate = func
 abs = func
 ignore = func
+intToWord16 = func
+intToWord32 = func
+intToWord8 = func
+natToWord16 = func
+natToWord32 = func
+natToWord8 = func
 print = func
 printInt = func
 range = func
 revrange = func
+word16ToInt = func
+word16ToNat = func
+word32ToInt = func
+word32ToNat = func
+word8ToInt = func
+word8ToNat = func
 

test/fail/ok/decl-clash.run.ok

@@ -1,13 +1,25 @@
-prelude:50.1-75.2: internal error, Env.Make(X).Clash("test")
+prelude:66.1-91.2: internal error, Env.Make(X).Clash("test")
 
 Last environment:
 @new_async = func
 Array_init = func
 Array_tabulate = func
 abs = func
 ignore = func
+intToWord16 = func
+intToWord32 = func
+intToWord8 = func
+natToWord16 = func
+natToWord32 = func
+natToWord8 = func
 print = func
 printInt = func
 range = func
 revrange = func
+word16ToInt = func
+word16ToNat = func
+word32ToInt = func
+word32ToNat = func
+word8ToInt = func
+word8ToNat = func
 

test/fail/ok/decl-clash.tc.ok

@@ -1,13 +1,25 @@
-prelude:50.1-75.2: internal error, Env.Make(X).Clash("test")
+prelude:66.1-91.2: internal error, Env.Make(X).Clash("test")
 
 Last environment:
 @new_async = func
 Array_init = func
 Array_tabulate = func
 abs = func
 ignore = func
+intToWord16 = func
+intToWord32 = func
+intToWord8 = func
+natToWord16 = func
+natToWord32 = func
+natToWord8 = func
 print = func
 printInt = func
 range = func
 revrange = func
+word16ToInt = func
+word16ToNat = func
+word32ToInt = func
+word32ToNat = func
+word8ToInt = func
+word8ToNat = func
 

test/fail/ok/decl-clash.wasm.stderr.ok

@@ -1,13 +1,25 @@
-prelude:50.1-75.2: internal error, Env.Make(X).Clash("test")
+prelude:66.1-91.2: internal error, Env.Make(X).Clash("test")
 
 Last environment:
 @new_async = func
 Array_init = func
 Array_tabulate = func
 abs = func
 ignore = func
+intToWord16 = func
+intToWord32 = func
+intToWord8 = func
+natToWord16 = func
+natToWord32 = func
+natToWord8 = func
 print = func
 printInt = func
 range = func
 revrange = func
+word16ToInt = func
+word16ToNat = func
+word32ToInt = func
+word32ToNat = func
+word8ToInt = func
+word8ToNat = func