Re: [PATCH 4/9] pkl,poke: trivial fixes

[Jose E. Marchesi]

OK.
Thanks!

> 2023-12-28  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
>
>       * libpoke/pkl-ast.h: Fix comment:
>       s/PKL_AST_COMPOUND_STMT/PKL_AST_COMP_STMT/.
>       * libpoke/pkl-trans.h (struct pkl_trans_function_ctx): Remove
>       unnecessary field `next'.
>       * poke/pk-help.pk (Poke_HelpEntry::is_line_p): Remove extra
>       semi-colon.
> ---
>  ChangeLog           | 9 +++++++++
>  libpoke/pkl-ast.h   | 2 +-
>  libpoke/pkl-trans.h | 2 --
>  poke/pk-help.pk     | 2 +-
>  4 files changed, 11 insertions(+), 4 deletions(-)
>
> diff --git a/ChangeLog b/ChangeLog
> index bb2738a4..bf85172a 100644
> --- a/ChangeLog
> +++ b/ChangeLog
> @@ -1,3 +1,12 @@
> +2023-12-28  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
> +
> +     * libpoke/pkl-ast.h: Fix comment:
> +     s/PKL_AST_COMPOUND_STMT/PKL_AST_COMP_STMT/.
> +     * libpoke/pkl-trans.h (struct pkl_trans_function_ctx): Remove
> +     unnecessary field `next'.
> +     * poke/pk-help.pk (Poke_HelpEntry::is_line_p): Remove extra
> +     semi-colon.
> +
>  2023-12-27  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
>  
>       * libpoke/pkl-anal.h (struct pkl_anal_excond_ctx): New struct.
> diff --git a/libpoke/pkl-ast.h b/libpoke/pkl-ast.h
> index b6c49631..0146977c 100644
> --- a/libpoke/pkl-ast.h
> +++ b/libpoke/pkl-ast.h
> @@ -1685,7 +1685,7 @@ pkl_ast_node pkl_ast_make_incrdecr (pkl_ast ast,
>                                      pkl_ast_node exp, int order, int sign);
>  
>  
> -/* PKL_AST_COMPOUND_STMT nodes represent compound statements in the
> +/* PKL_AST_COMP_STMT nodes represent compound statements in the
>     language.
>  
>     STMTS is a possibly empty chain of statements.
> diff --git a/libpoke/pkl-trans.h b/libpoke/pkl-trans.h
> index c2b807be..9a976670 100644
> --- a/libpoke/pkl-trans.h
> +++ b/libpoke/pkl-trans.h
> @@ -49,8 +49,6 @@ struct pkl_trans_function_ctx
>    int ndrops;
>    int npopes;
>    int back;
> -
> -  struct pkl_trans_function_ctx *next;
>  };
>  
>  /* The trans phases keep a stack of escapable entities (loops and
> diff --git a/poke/pk-help.pk b/poke/pk-help.pk
> index 47b006e5..e5129e2d 100644
> --- a/poke/pk-help.pk
> +++ b/poke/pk-help.pk
> @@ -28,7 +28,7 @@ type Poke_HelpEntry =
>    struct
>    {
>      fun is_line_p = (string s) int<32>:
> -      { return strchr (s, '\n') == s'length;; }
> +      { return strchr (s, '\n') == s'length; }
>  
>      string category;
>      string topic;