[PATCH] poke: Exit with status code 1 on failure in `-L` mode

[Mohammad-Reza Nabipoor]

2020-12-18  Mohammad-Reza Nabipoor  <m.nabipoor@yahoo.com>

        * poke/poke.c (parse_args_2): Go to `exit_failure` when
        `pk_compile_file` fails.
---
 ChangeLog   | 5 +++++
 poke/poke.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 09794cc0..8878ea88 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2020-12-18  Mohammad-Reza Nabipoor  <m.nabipoor@yahoo.com>
+
+       * poke/poke.c (parse_args_2): Go to `exit_failure` when
+       `pk_compile_file` fails.
+
 2020-12-17  Jose E. Marchesi  <jemarch@gnu.org>
 
        * testsuite/poke.pickles/color-test.pk: Fix typo.
diff --git a/poke/poke.c b/poke/poke.c
index b67e5b91..73fc6eba 100644
--- a/poke/poke.c
+++ b/poke/poke.c
@@ -437,7 +437,7 @@ parse_args_2 (int argc, char *argv[])
                return.  */
             set_script_args (argc, argv);
             if (pk_compile_file (poke_compiler, optarg, &exit_status) != PK_OK)
-              goto exit_success;
+              goto exit_failure;
 
             finalize ();
             exit (exit_status);
-- 
2.29.2