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

[Jose E. Marchesi]

Hi Mohammad.
OK for master.  Thanks.

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