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

* validate.h (SCM_WRONG_NUM_ARGS): Call scm_error_num_args_subr

Browse source 
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.
This commit is contained in:
Dirk Herrmann 2001-03-17 12:20:36 +00:00
parent 9f40cd879d
commit 68baa7e7f8
4 changed files with 22 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/debug.c
View file

@ -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}
*