[interpreter] Name the type Utf8.unicode

Author: rossberg

binary/utf8.ml

@@ -1,3 +1,6 @@
+type codepoint = int
+type unicode = codepoint list
+
 exception Utf8
 
 let con n = 0x80 lor (n land 0x3f)

binary/utf8.mli

@@ -1,4 +1,7 @@
+type codepoint = int
+type unicode = codepoint list
+
 exception Utf8
 
-val decode : string -> int list (* raises Utf8 *)
-val encode : int list -> string (* raises Utf8 *)
+val decode : string -> unicode (* raises Utf8 *)
+val encode : unicode -> string (* raises Utf8 *)

syntax/ast.ml

@@ -130,7 +130,7 @@ type vec_laneop = (vec_type, pack_size) memop * int
 type var = int32 Source.phrase
 type num = Values.num Source.phrase
 type vec = Values.vec Source.phrase
-type name = int list
+type name = Utf8.unicode
 
 type block_type = VarBlockType of var | ValBlockType of value_type option