mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fixed style for 02439a124

Browse source 
* guile-readline/readline.c (scm_filename_completion_function)
This commit is contained in:
jakub-w 2021-05-19 17:14:35 +02:00 • committed by Daniel Llorens
parent f9f55b9ce7
commit f3a23edf9e
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guile-readline/readline.c
View file

@ -379,7 +379,6 @@ SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2,
#define FUNC_NAME s_scm_filename_completion_function #define FUNC_NAME s_scm_filename_completion_function
{ {
char *s; char *s;
SCM ans;
char *c_text = scm_to_locale_string (text); char *c_text = scm_to_locale_string (text);
#ifdef HAVE_RL_FILENAME_COMPLETION_FUNCTION #ifdef HAVE_RL_FILENAME_COMPLETION_FUNCTION
s = rl_filename_completion_function (c_text, scm_is_true (continuep)); 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)); s = filename_completion_function (c_text, scm_is_true (continuep));
#endif #endif
free (c_text); free (c_text);
if (!s) { if (!s)
return SCM_BOOL_F; return SCM_BOOL_F;
}
ans = scm_take_locale_string (s); return scm_take_locale_string (s);
return ans;
} }
#undef FUNC_NAME #undef FUNC_NAME