mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* *.[ch]: Whitespace changes -- added space after SCM_VALIDATE_*

Browse source 
macros and SCM_DEFINE macros to match GNU coding standards.
This commit is contained in:
Greg J. Badros 2000-01-05 19:25:37 +00:00
parent cbaee92a8b
commit 3b3b36ddb7
61 changed files with 730 additions and 730 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/error.c
View file

@ -87,7 +87,7 @@ scm_error (SCM key, const char *subr, const char *message, SCM args, SCM rest)
}
/* Scheme interface to scm_error. */
SCM_DEFINE(scm_error_scm, "scm-error", 5, 0, 0,
SCM_DEFINE (scm_error_scm, "scm-error", 5, 0, 0,
(SCM key, SCM subr, SCM message, SCM args, SCM rest),
"Raise an error with key @var{key}. @var{subr} can be a string naming
the procedure associated with the error, or @code{#f}. @var{message}
@ -104,9 +104,9 @@ will usually be @code{#f}.")
{
char *szSubr;
char *szMessage;
SCM_VALIDATE_SYMBOL(1,key);
SCM_VALIDATE_NULLORROSTRING_COPY(2,subr,szSubr);
SCM_VALIDATE_NULLORROSTRING_COPY(3,message,szMessage);
SCM_VALIDATE_SYMBOL (1,key);
SCM_VALIDATE_NULLORROSTRING_COPY (2,subr,szSubr);
SCM_VALIDATE_NULLORROSTRING_COPY (3,message,szMessage);
SCM_COERCE_SUBSTR (message);
scm_error (key, szSubr, szMessage, args, rest);
@ -119,7 +119,7 @@ SCM_DEFINE (scm_strerror, "strerror", 1, 0, 0,
"Returns the Unix error message corresponding to @var{errno}, an integer.")
#define FUNC_NAME s_scm_strerror
{
SCM_VALIDATE_INUM(1,err);
SCM_VALIDATE_INUM (1,err);
return scm_makfrom0str (strerror (SCM_INUM (err)));
}
#undef FUNC_NAME