diff options
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index a11a49d50..79e16a0b1 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2221,7 +2221,7 @@ l2ra (SCM lst, SCM ra, unsigned long base, unsigned long k) base += inc; lst = SCM_CDR (lst); } - if (SCM_NNULLP (lst)) + if (!SCM_NULLP (lst)) return 0; } else @@ -2234,7 +2234,7 @@ l2ra (SCM lst, SCM ra, unsigned long base, unsigned long k) base += inc; lst = SCM_CDR (lst); } - if (SCM_NNULLP (lst)) + if (!SCM_NULLP (lst)) return 0; } return ok; |