From d81f6fe1fe9a7ccc871039e3c9c409297ea2b88f Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 28 May 2001 14:41:33 +0000 Subject: [PATCH] * Ooops. This belongs to my ChangeLog entry from 2001-05-26. Sorry. --- libguile/ramap.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/ramap.c b/libguile/ramap.c index a1e290c7a..74e281c65 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -1366,7 +1366,7 @@ ramap_rp (SCM ra0,SCM proc,SCM ras) */ SCM n1 = SCM_MAKINUM (((long *) SCM_UNPACK (SCM_CDR (ra1)))[i1]); SCM n2 = SCM_MAKINUM (((long *) SCM_UNPACK (SCM_CDR (ra2)))[i2]); - if (SCM_FALSEP (SCM_SUBRF (proc) (n1, n2))); + if (SCM_FALSEP (SCM_SUBRF (proc) (n1, n2))) SCM_BITVEC_CLR (ra0, i0); } break;