Q @masterq

はーテスト書かないとダメだ。。。こんなコードを書いてしまうとは。。。
parse_type_suffix t0 = parser
[< '(l, Kwd "*"); t = parse_type_suffix (PtrTypeExpr (l, t0)) >] -> t
| [< '(l, Kwd "volatile"); t = parse_type_suffix (PtrTypeExpr (l, t0)) >] -> t

· tootstream · 0 · 0