Fix SRFI 175 ASCII bug

This commit is contained in:
Lassi Kortela 2020-02-13 23:52:23 +02:00
parent cbbf3e4be1
commit e53e4f0fb3
1 changed files with 1 additions and 1 deletions

View File

@ -94,7 +94,7 @@ static int32_t cc_base_offset_limit(int32_t cc, int32_t base, int32_t offset,
limit = maxlimit; limit = maxlimit;
} }
if ((cc >= base) && (cc < base + limit)) { if ((cc >= base) && (cc < base + limit)) {
return fixnum(offset + (base - cc)); return fixnum(offset + (cc - base));
} }
return FL_F; return FL_F;
} }