Fix SRFI 175 ASCII bug

2020-02-13 23:52:23 +02:00 · 2020-02-13 23:52:23 +02:00 · e53e4f0fb3
parent cbbf3e4be1
commit e53e4f0fb3
1 changed files with 1 additions and 1 deletions
--- a/c/char.c
+++ b/c/char.c
@ -94,7 +94,7 @@ static int32_t cc_base_offset_limit(int32_t cc, int32_t base, int32_t offset,
        limit = maxlimit;
    }
    if ((cc >= base) && (cc < base + limit)) {
-        return fixnum(offset + (base - cc));
+        return fixnum(offset + (cc - base));
    }
    return FL_F;
 }