diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-19 14:03:44 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-19 14:03:44 +0000 |
commit | 1a548472dd89674ea96590334d866f6bea6e0bcc (patch) | |
tree | 09af7197b8478a4e5e80b21b6de7909977d93e8f /libguile/gh_data.c | |
parent | bcee10ddd203bf8cf1dd0e899a4a04334c1a0bed (diff) | |
download | guile-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.c | 10 |
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)) { |