diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-13 10:32:46 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-13 13:48:07 +0200 |
commit | 2e16a342f226b97e47fd2cd30c367ebca2a3080c (patch) | |
tree | e0e1241a60d99b70ae854fe8922957f9977e1f7d /libguile/numbers.c | |
parent | 210c0325d38abc7409b34b6b4724a297c5524eb5 (diff) | |
download | guile-2e16a342f226b97e47fd2cd30c367ebca2a3080c.tar.gz |
fix type errors
* libguile/numbers.c (scm_logand): Fix a type error (comparing a SCM
against an int, when we really wanted to compare the unpacked
fixnum).
* libguile/ports.c (scm_i_set_conversion_strategy_x): Check
scm_conversion_strategy_init, not scm_conversion_strategy.
* libguile/read.c (recsexpr): Fix loops to avoid strange test of SCM
values.
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index fe510a195..5aeced6ca 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4112,7 +4112,7 @@ SCM scm_logand (SCM n1, SCM n2) else if SCM_BIGP (n2) { intbig: - if (n1 == 0) + if (nn1 == 0) return SCM_INUM0; { SCM result_z = scm_i_mkbig (); |