mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +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

11
libguile/ChangeLog
View file

@ -1,3 +1,14 @@
2001-03-17 Dirk Herrmann <D.Herrmann@tu-bs.de>
* 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.
2001-03-17 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-03-17 Dirk Herrmann <D.Herrmann@tu-bs.de>
* error.[ch] (scm_error_num_args_subr): New function. * error.[ch] (scm_error_num_args_subr): New function.

1
libguile/coop-threads.c
View file

@ -47,7 +47,6 @@
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libguile/coop-threads.h" #include "libguile/coop-threads.h"
#include "libguile/root.h" #include "libguile/root.h"
#include "libguile/strings.h"
/* A counter of the current number of threads */ /* A counter of the current number of threads */
size_t scm_thread_count = 0; size_t scm_thread_count = 0;

17
libguile/debug.c
View file

@ -1,5 +1,5 @@
/* Debugging extensions for Guile /* Debugging extensions for Guile
* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation * Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation
* *
* This program is free software; you can redistribute it and/or modify * 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 * 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 static SCM
scm_m_start_stack (SCM exp, SCM env) scm_m_start_stack (SCM exp, SCM env)
#define FUNC_NAME s_start_stack
{ {
exp = SCM_CDR (exp); exp = SCM_CDR (exp);
SCM_ASSERT (SCM_ECONSP (exp) if (!SCM_ECONSP (exp)
&& SCM_ECONSP (SCM_CDR (exp)) || !SCM_ECONSP (SCM_CDR (exp))
&& SCM_NULLP (SCM_CDDR (exp)), || !SCM_NULLP (SCM_CDDR (exp)))
exp, SCM_WRONG_NUM_ARGS ();
SCM_WNA,
s_start_stack);
return scm_start_stack (scm_eval_car (exp, env), SCM_CADR (exp), env); return scm_start_stack (scm_eval_car (exp, env), SCM_CADR (exp), env);
} }
#undef FUNC_NAME
/* {Debug Objects} /* {Debug Objects}
* *

4
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.28 2001-03-15 11:24:45 mgrabmue Exp $ */ /* $Id: validate.h,v 1.29 2001-03-17 12:20:36 dirk Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc. /* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -58,7 +58,7 @@
do { scm_misc_error (FUNC_NAME, str, args); } while (0) do { scm_misc_error (FUNC_NAME, str, args); } while (0)
#define SCM_WRONG_NUM_ARGS() \ #define SCM_WRONG_NUM_ARGS() \
do { scm_wrong_num_args (scm_makfrom0str (FUNC_NAME)); } while (0) do { scm_error_num_args_subr (FUNC_NAME); } while (0)
#define SCM_WRONG_TYPE_ARG(pos, obj) \ #define SCM_WRONG_TYPE_ARG(pos, obj) \
do { scm_wrong_type_arg (FUNC_NAME, pos, obj); } while (0) do { scm_wrong_type_arg (FUNC_NAME, pos, obj); } while (0)