mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
* coop-threads.c: Remove K&R function headers.
* scm_validate.h: Added SCM_VALIDATE_THREAD. * *.c: Remove SCM_NIMP(X) when it is an extraneous pre-test given that SCM_FOOP macros all now include SCM_NIMP in their expansion. This simplifies lots of code, making it far more readable.
This commit is contained in:
parent
9c24ff3e6c
commit
0c95b57d77
50 changed files with 324 additions and 384 deletions
|
@ -196,7 +196,7 @@ scm_rstate *
|
|||
scm_c_default_rstate ()
|
||||
{
|
||||
SCM state = SCM_CDR (scm_var_random_state);
|
||||
SCM_ASSERT (SCM_NIMP (state) && SCM_RSTATEP (state),
|
||||
SCM_ASSERT (SCM_RSTATEP (state),
|
||||
state, "*random-state* contains bogus random state", 0);
|
||||
return SCM_RSTATE (state);
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue