瀏覽代碼

do not lose the : of custom @: metadata

Simon Krajewski 12 年之前
父節點
當前提交
0d56312e4d
共有 1 個文件被更改,包括 1 次插入1 次删除
  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