diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-17 12:20:36 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-17 12:20:36 +0000 |
commit | 68baa7e7f8088e21eaa3d0b568a985528314ada5 (patch) | |
tree | 6391cbf1b6a8dab68459241a46872228b858aa15 /libguile/debug.c | |
parent | 9f40cd879d951cdaa3409aef31340b2b1472921d (diff) | |
download | guile-68baa7e7f8088e21eaa3d0b568a985528314ada5.tar.gz |
* validate.h (SCM_WRONG_NUM_ARGS): Call scm_error_num_args_subr
instead of scm_wrong_num_args.
* coop-threads.c: Don't include libguile/strings.h. (Was only
needed for former implementation of SCM_WRONG_NUM_ARGS.)
* debug.c (scm_m_start_stack): Don't use SCM_ASSERT to check for
wrong-num-args errors.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 17 |
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} * |