mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* readline.c: Whitespace changes -- added space after

Browse source 
SCM_VALIDATE_* macros to match GNU coding standards.
This commit is contained in:
Greg J. Badros 2000-01-05 19:20:06 +00:00
parent ca8cd13072
commit cbaee92a8b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guile-readline/readline.c
View file

@ -325,7 +325,7 @@ SCM_DEFINE (scm_add_history, "add-history", 1, 0, 0,
#define FUNC_NAME s_scm_add_history #define FUNC_NAME s_scm_add_history
{ {
char* s; char* s;
SCM_VALIDATE_STRING(1,text); SCM_VALIDATE_STRING (1,text);
SCM_COERCE_SUBSTR (text); SCM_COERCE_SUBSTR (text);
s = SCM_CHARS (text); s = SCM_CHARS (text);
@ -341,7 +341,7 @@ SCM_DEFINE (scm_read_history, "read-history", 1, 0, 0,
"") "")
#define FUNC_NAME s_scm_read_history #define FUNC_NAME s_scm_read_history
{ {
SCM_VALIDATE_STRING(1,file); SCM_VALIDATE_STRING (1,file);
return SCM_NEGATE_BOOL(read_history (SCM_ROCHARS (file))); return SCM_NEGATE_BOOL(read_history (SCM_ROCHARS (file)));
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -352,7 +352,7 @@ SCM_DEFINE (scm_write_history, "write-history", 1, 0, 0,
"") "")
#define FUNC_NAME s_scm_write_history #define FUNC_NAME s_scm_write_history
{ {
SCM_VALIDATE_STRING(1,file); SCM_VALIDATE_STRING (1,file);
return SCM_NEGATE_BOOL(write_history (SCM_ROCHARS (file))); return SCM_NEGATE_BOOL(write_history (SCM_ROCHARS (file)));
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -365,7 +365,7 @@ SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2,
{ {
char *s; char *s;
SCM ans; SCM ans;
SCM_VALIDATE_STRING(1,text); SCM_VALIDATE_STRING (1,text);
SCM_COERCE_SUBSTR (text); SCM_COERCE_SUBSTR (text);
s = filename_completion_function (SCM_CHARS (text), SCM_NFALSEP (continuep)); s = filename_completion_function (SCM_CHARS (text), SCM_NFALSEP (continuep));
ans = scm_makfrom0str (s); ans = scm_makfrom0str (s);