resume in var init (closes #3422)

parser.ml

@@ -1094,7 +1094,7 @@ and parse_array_decl = parser
 and parse_var_decl = parser
 	| [< name, _ = dollar_ident; t = parse_type_opt; s >] ->
 		match s with parser
-		| [< '(Binop OpAssign,_); e = expr >] -> (name,t,Some e)
+		| [< '(Binop OpAssign,_); s >] -> let e = try expr s with Display e -> e in (name,t,Some e)
 		| [< >] -> (name,t,None)
 
 and inline_function = parser