Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Perform fixnum type check

Browse source
This commit is contained in:
Justin Ethier 2019-02-19 13:17:33 -05:00
parent db7fd2bf81
commit 6bfff4b6ed
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/base.sld
View file

@ -989,7 +989,7 @@
char ch_buf[5]; char ch_buf[5];
char_type c; char_type c;
int buflen, num_cp, len; int buflen, num_cp, len;
Cyc_check_int(data, count); Cyc_check_fixnum(data, count);
if (!obj_is_char(fill)) { if (!obj_is_char(fill)) {
Cyc_rt_raise2(data, \"Expected character buf received\", fill); Cyc_rt_raise2(data, \"Expected character buf received\", fill);
} }