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

* gc.c (scm_cellp): Fixed and simplified.

Browse source 
* Using double cells to represent jump buffers with debug extensions.
This commit is contained in:
Dirk Herrmann 2000-05-19 14:03:44 +00:00
parent bcee10ddd2
commit 1a548472dd
4 changed files with 49 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/gh_data.c
View file

@ -268,7 +268,7 @@ gh_scm2chars (SCM obj, char *m)
int i, n;
long v;
SCM val;
if (!SCM_NIMP (obj))
if (SCM_IMP (obj))
scm_wrong_type_arg (0, 0, obj);
switch (SCM_TYP7 (obj))
{
@ -316,7 +316,7 @@ gh_scm2shorts (SCM obj, short *m)
int i, n;
long v;
SCM val;
if (!SCM_NIMP (obj))
if (SCM_IMP (obj))
scm_wrong_type_arg (0, 0, obj);
switch (SCM_TYP7 (obj))
{
@ -361,7 +361,7 @@ gh_scm2longs (SCM obj, long *m)
{
int i, n;
SCM val;
if (!SCM_NIMP (obj))
if (SCM_IMP (obj))
scm_wrong_type_arg (0, 0, obj);
switch (SCM_TYP7 (obj))
{
@ -404,7 +404,7 @@ gh_scm2floats (SCM obj, float *m)
{
int i, n;
SCM val;
if (!SCM_NIMP (obj))
if (SCM_IMP (obj))
scm_wrong_type_arg (0, 0, obj);
switch (SCM_TYP7 (obj))
{
@ -460,7 +460,7 @@ gh_scm2doubles (SCM obj, double *m)
{
int i, n;
SCM val;
if (!SCM_NIMP (obj))
if (SCM_IMP (obj))
scm_wrong_type_arg (0, 0, obj);
switch (SCM_TYP7 (obj))
{