summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c17
1 files changed, 9 insertions, 8 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index 354ddd6e6..7c1cf8bc4 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -1,5 +1,5 @@
- /* Debugging extensions for Guile
- * Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation
+/* Debugging extensions for Guile
+ * Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -543,16 +543,17 @@ SCM_SYNTAX(s_start_stack, "start-stack", scm_makacro, scm_m_start_stack);
static SCM
scm_m_start_stack (SCM exp, SCM env)
+#define FUNC_NAME s_start_stack
{
exp = SCM_CDR (exp);
- SCM_ASSERT (SCM_ECONSP (exp)
- && SCM_ECONSP (SCM_CDR (exp))
- && SCM_NULLP (SCM_CDDR (exp)),
- exp,
- SCM_WNA,
- s_start_stack);
+ if (!SCM_ECONSP (exp)
+ || !SCM_ECONSP (SCM_CDR (exp))
+ || !SCM_NULLP (SCM_CDDR (exp)))
+ SCM_WRONG_NUM_ARGS ();
return scm_start_stack (scm_eval_car (exp, env), SCM_CADR (exp), env);
}
+#undef FUNC_NAME
+
/* {Debug Objects}
*