summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-19 14:03:44 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-19 14:03:44 +0000
commit1a548472dd89674ea96590334d866f6bea6e0bcc (patch)
tree09af7197b8478a4e5e80b21b6de7909977d93e8f /libguile/gh_data.c
parentbcee10ddd203bf8cf1dd0e899a4a04334c1a0bed (diff)
downloadguile-1a548472dd89674ea96590334d866f6bea6e0bcc.tar.gz
* gc.c (scm_cellp): Fixed and simplified.
* Using double cells to represent jump buffers with debug extensions.
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r--libguile/gh_data.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 893609727..5ba9a42aa 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -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))
{