Blame camlp4/test/fixtures/superfluous.ml
|
Packit Service |
823e34 |
open Camlp4.PreCast;;
|
|
Packit Service |
823e34 |
open Syntax;;
|
|
Packit Service |
823e34 |
|
|
Packit Service |
823e34 |
let _loc = Loc.ghost;;
|
|
Packit Service |
823e34 |
let st = <:str_item< >>;;
|
|
Packit Service |
823e34 |
let e = <:expr< 1 >>
|
|
Packit Service |
823e34 |
let bi = <:binding< x = 0 >>;;
|
|
Packit Service |
823e34 |
|
|
Packit Service |
823e34 |
(* none of these holds due to superfluous StSem and StNil *)
|
|
Packit Service |
823e34 |
assert (Ast.StSem (_loc, st, st) = <:str_item< $st$ $st$ >>);;
|
|
Packit Service |
823e34 |
assert (Ast.StExp (_loc, e) = <:str_item< $exp:e$ >>);;
|
|
Packit Service |
823e34 |
assert (Ast.StVal (_loc, bi) = <:str_item< let $bi$ >>);;
|