Added comments.
This commit is contained in:
parent
92e6d55aa8
commit
8f4ed11539
@ -400,6 +400,10 @@ and cond_expr = {
|
||||
ifnot : expr
|
||||
}
|
||||
|
||||
(* Code injection. Note how the field [language] wraps a region in
|
||||
another: the outermost region covers the header "[%<language>" and
|
||||
the innermost covers the <language>. *)
|
||||
|
||||
and code_inj = {
|
||||
language : string reg reg;
|
||||
code : expr;
|
||||
|
@ -121,8 +121,7 @@ type_decl:
|
||||
"type" type_name "=" type_expr {
|
||||
Scoping.check_reserved_name $2;
|
||||
let region = cover $1 (type_expr_to_region $4) in
|
||||
let value = {
|
||||
kwd_type = $1;
|
||||
let value = {kwd_type = $1;
|
||||
name = $2;
|
||||
eq = $3;
|
||||
type_expr = $4}
|
||||
|
@ -426,6 +426,10 @@ and for_collect = {
|
||||
block : block reg
|
||||
}
|
||||
|
||||
(* Code injection. Note how the field [language] wraps a region in
|
||||
another: the outermost region covers the header "[%<language>" and
|
||||
the innermost covers the <language>. *)
|
||||
|
||||
and code_inj = {
|
||||
language : string reg reg;
|
||||
code : expr;
|
||||
|
Loading…
Reference in New Issue
Block a user