mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

* Remove uses of SCM_ASSERT that may result in error messages different

Browse source 
from wrong-type-arg errors.
This commit is contained in:
Dirk Herrmann 2001-03-06 01:22:37 +00:00
parent d42df0557f
commit 2ade72d773
6 changed files with 84 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/smob.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.
*
* 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
@ -459,10 +459,13 @@ scm_make_smob (scm_bits_t tc)
if (size != 0)
{
#if 0
SCM_ASSERT (scm_smobs[n].mark == 0,
0,
"forbidden operation for smobs with GC data, use SCM_NEWSMOB",
SCM_SMOBNAME (n));
if (scm_smobs[n].mark != 0)
{
fprintf
(stderr,
"forbidden operation for smobs with GC data, use SCM_NEWSMOB\n");
abort ();
}
#endif
SCM_SET_SMOB_DATA (z, scm_must_malloc (size, SCM_SMOBNAME (n)));
}