summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:25:37 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:25:37 +0000
commit3b3b36ddb7dfbd5094abee360c253c8f1216dcdd (patch)
treebe6f18ee784818de032ac23e77470b67e260ffef /libguile/debug.c
parentcbaee92a8b6d8abba6bd236d089a7e6c3cf471b3 (diff)
downloadguile-3b3b36ddb7dfbd5094abee360c253c8f1216dcdd.tar.gz
* *.[ch]: Whitespace changes -- added space after SCM_VALIDATE_*
macros and SCM_DEFINE macros to match GNU coding standards.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index 51a5ce409..06e7e6c6b 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -126,7 +126,7 @@ SCM_DEFINE (scm_with_traps, "with-traps", 1, 0, 0,
#define FUNC_NAME s_scm_with_traps
{
int trap_flag;
- SCM_VALIDATE_THUNK(1,thunk);
+ SCM_VALIDATE_THUNK (1,thunk);
return scm_internal_dynamic_wind (with_traps_before,
with_traps_inner,
with_traps_after,
@@ -260,11 +260,11 @@ SCM_DEFINE (scm_make_gloc, "make-gloc", 1, 1, 0,
var = scm_cons (SCM_BOOL_F, var);
else
#endif
- SCM_VALIDATE_VARIABLE(1,var);
+ SCM_VALIDATE_VARIABLE (1,var);
if (SCM_UNBNDP (env))
env = scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var));
else
- SCM_VALIDATE_NULLORCONS(2,env);
+ SCM_VALIDATE_NULLORCONS (2,env);
return scm_make_memoized (SCM_VARVCELL (var) + 1, env);
}
#undef FUNC_NAME
@@ -284,8 +284,8 @@ SCM_DEFINE (scm_make_iloc, "make-iloc", 3, 0, 0,
"")
#define FUNC_NAME s_scm_make_iloc
{
- SCM_VALIDATE_INUM(1,frame);
- SCM_VALIDATE_INUM(2,binding);
+ SCM_VALIDATE_INUM (1,frame);
+ SCM_VALIDATE_INUM (2,binding);
return (SCM_ILOC00
+ SCM_IFRINC * SCM_INUM (frame)
+ (SCM_NFALSEP (cdrp) ? SCM_ICDR : 0)
@@ -329,7 +329,7 @@ SCM_DEFINE (scm_memcons, "memcons", 2, 1, 0,
if (SCM_UNBNDP (env))
env = scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var));
else
- SCM_VALIDATE_NULLORCONS(3,env);
+ SCM_VALIDATE_NULLORCONS (3,env);
return scm_make_memoized (scm_cons (car, cdr), env);
}
#undef FUNC_NAME
@@ -340,7 +340,7 @@ SCM_DEFINE (scm_mem_to_proc, "mem->proc", 1, 0, 0,
#define FUNC_NAME s_scm_mem_to_proc
{
SCM env;
- SCM_VALIDATE_MEMOIZED(1,obj);
+ SCM_VALIDATE_MEMOIZED (1,obj);
env = SCM_MEMOIZED_ENV (obj);
obj = SCM_MEMOIZED_EXP (obj);
if (!(SCM_NIMP (obj) && SCM_CAR (obj) == SCM_IM_LAMBDA))
@@ -368,7 +368,7 @@ SCM_DEFINE (scm_unmemoize, "unmemoize", 1, 0, 0,
"")
#define FUNC_NAME s_scm_unmemoize
{
- SCM_VALIDATE_MEMOIZED(1,m);
+ SCM_VALIDATE_MEMOIZED (1,m);
return scm_unmemocopy (SCM_MEMOIZED_EXP (m), SCM_MEMOIZED_ENV (m));
}
#undef FUNC_NAME
@@ -378,7 +378,7 @@ SCM_DEFINE (scm_memoized_environment, "memoized-environment", 1, 0, 0,
"")
#define FUNC_NAME s_scm_memoized_environment
{
- SCM_VALIDATE_MEMOIZED(1,m);
+ SCM_VALIDATE_MEMOIZED (1,m);
return SCM_MEMOIZED_ENV (m);
}
#undef FUNC_NAME
@@ -388,7 +388,7 @@ SCM_DEFINE (scm_procedure_name, "procedure-name", 1, 0, 0,
"")
#define FUNC_NAME s_scm_procedure_name
{
- SCM_VALIDATE_PROC(1,proc);
+ SCM_VALIDATE_PROC (1,proc);
switch (SCM_TYP7 (proc)) {
case scm_tcs_subrs:
return SCM_SNAME (proc);
@@ -484,7 +484,7 @@ is implicit).")
{
if (SCM_UNBNDP (env))
{
- SCM_VALIDATE_MEMOIZED(1,exp);
+ SCM_VALIDATE_MEMOIZED (1,exp);
return scm_eval_3 (SCM_MEMOIZED_EXP (exp), 0, SCM_MEMOIZED_ENV (exp));
}
return scm_eval_3 (exp, 1, env);