mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +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
{
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