diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-03-14 22:25:31 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-03-14 22:25:31 +0000 |
commit | a08b0d00584a86ff8ada530cd0996e5f3ac2b4c5 (patch) | |
tree | 9e1f42979807c6961322f2805017aa56c4d9de13 /libguile/unif.c | |
parent | 3b3cc7811592f7945b8f95101d83302c58826b0f (diff) | |
download | guile-a08b0d00584a86ff8ada530cd0996e5f3ac2b4c5.tar.gz |
(singp): Use SCM_REALP instead of SCM_SLOPPY_REALP.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index ce0cf2706..761fbc101 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -146,7 +146,7 @@ scm_uniform_element_size (SCM obj) static int singp (SCM obj) { - if (!SCM_SLOPPY_REALP (obj)) + if (!SCM_REALP (obj)) return 0; else { |