Added comments.

This commit is contained in:
Christian Rinderknecht 2020-06-15 18:16:03 +02:00 committed by Pierre-Emmanuel Wulfman
parent 92e6d55aa8
commit 8f4ed11539
3 changed files with 14 additions and 7 deletions

View File

@ -400,6 +400,10 @@ and cond_expr = {
ifnot : 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 = { and code_inj = {
language : string reg reg; language : string reg reg;
code : expr; code : expr;

View File

@ -121,8 +121,7 @@ type_decl:
"type" type_name "=" type_expr { "type" type_name "=" type_expr {
Scoping.check_reserved_name $2; Scoping.check_reserved_name $2;
let region = cover $1 (type_expr_to_region $4) in let region = cover $1 (type_expr_to_region $4) in
let value = { let value = {kwd_type = $1;
kwd_type = $1;
name = $2; name = $2;
eq = $3; eq = $3;
type_expr = $4} type_expr = $4}

View File

@ -426,6 +426,10 @@ and for_collect = {
block : block reg 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 = { and code_inj = {
language : string reg reg; language : string reg reg;
code : expr; code : expr;