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

[Mohammad-Reza Nabipoor]

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;
-- 
2.42.1