From f3a23edf9ed111caab7bbad583874ad34ff8652d Mon Sep 17 00:00:00 2001 From: jakub-w Date: Wed, 19 May 2021 17:14:35 +0200 Subject: [PATCH] Fixed style for 02439a124 * guile-readline/readline.c (scm_filename_completion_function) --- guile-readline/readline.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/guile-readline/readline.c b/guile-readline/readline.c index 7bb2394ba..469d6ec7d 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -379,7 +379,6 @@ SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2, #define FUNC_NAME s_scm_filename_completion_function { char *s; - SCM ans; char *c_text = scm_to_locale_string (text); #ifdef HAVE_RL_FILENAME_COMPLETION_FUNCTION s = rl_filename_completion_function (c_text, scm_is_true (continuep)); @@ -387,11 +386,10 @@ SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2, s = filename_completion_function (c_text, scm_is_true (continuep)); #endif free (c_text); - if (!s) { + if (!s) return SCM_BOOL_F; - } - ans = scm_take_locale_string (s); - return ans; + + return scm_take_locale_string (s); } #undef FUNC_NAME