[COMMITTED master] poke: clear lexical cuckolding if

[Jose E. Marchesi]

2024-09-25  Jose E. Marchesi  <jemarch@gnu.org>

        * poke/pk-cmd.c (pk_cmd_exec): Clear lexical cuckolding if
        pk_compile_statement_with_loc fails.
---
 ChangeLog     | 5 +++++
 poke/pk-cmd.c | 1 +
 2 files changed, 6 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 367f4357..82dcc84f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-09-25  Jose E. Marchesi  <jemarch@gnu.org>
+
+       * poke/pk-cmd.c (pk_cmd_exec): Clear lexical cuckolding if
+       pk_compile_statement_with_loc fails.
+
 2024-09-24  Jose E. Marchesi  <jemarch@gnu.org>
 
        * HACKING: Simplify contents.
diff --git a/poke/pk-cmd.c b/poke/pk-cmd.c
index 1500c841..54553050 100644
--- a/poke/pk-cmd.c
+++ b/poke/pk-cmd.c
@@ -706,6 +706,7 @@ pk_cmd_exec (const char *str)
         poke_handle_exception (exit_exception);
 
     cleanup:
+      pk_set_lexical_cuckolding_p (poke_compiler, 0);
       free (cmd_alloc);
       return retval;
     }
-- 
2.30.2