Explorar el Código

do not lose the : of custom @: metadata

Simon Krajewski hace 12 años
padre
commit
0d56312e4d
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      ast.ml

+ 1 - 1
ast.ml

@@ -309,7 +309,7 @@ module Meta = struct
 		| "unifyMinDynamic" -> UnifyMinDynamic
 		| "unreflective" -> Unreflective
 		| "unsafe" -> Unsafe
-		| s -> Custom s
+		| s -> Custom (":" ^ s)
 
 	let from_string s =
 		if s = "" then Custom "" else match s.[0] with