diff options
author | Andy Wingo <wingo@pobox.com> | 2011-10-10 16:20:08 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-10-10 16:20:08 +0200 |
commit | a215c1591351b9c8099c833361520c174d490cd4 (patch) | |
tree | 7d672d4a510f46b21bee1a3c43ea7bbba41a5d5c /libguile/numbers.c | |
parent | 840cf0d1e2bb3b019210958056404f29347042fe (diff) | |
parent | 34c5fe83c021eb27c5bdff0f1328c733a7cb45b4 (diff) | |
download | guile-a215c1591351b9c8099c833361520c174d490cd4.tar.gz |
Merge remote-tracking branch 'origin/stable-2.0'
Does not include psyntax regeneration.
Conflicts:
module/ice-9/psyntax-pp.scm
module/language/tree-il/peval.scm
test-suite/tests/tree-il.test
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index a278ed5b9..19673b84a 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -536,6 +536,11 @@ SCM_PRIMITIVE_GENERIC (scm_exact_p, "exact?", 1, 0, 0, } #undef FUNC_NAME +int +scm_is_exact (SCM val) +{ + return scm_is_true (scm_exact_p (val)); +} SCM_PRIMITIVE_GENERIC (scm_inexact_p, "inexact?", 1, 0, 0, (SCM x), @@ -552,6 +557,11 @@ SCM_PRIMITIVE_GENERIC (scm_inexact_p, "inexact?", 1, 0, 0, } #undef FUNC_NAME +int +scm_is_inexact (SCM val) +{ + return scm_is_true (scm_inexact_p (val)); +} SCM_PRIMITIVE_GENERIC (scm_odd_p, "odd?", 1, 0, 0, (SCM n), |