Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix error on some platforms

Browse source
This commit is contained in:
Justin Ethier 2017-02-10 23:59:30 +00:00
parent f696dca7e1
commit 61383c6edb
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
srfi/60.scm
View file

@ -149,12 +149,13 @@
Cyc_check_int(data,y); Cyc_check_int(data,y);
int bf = (int)unbox_number(x); int bf = (int)unbox_number(x);
int shift = (int)unbox_number(y); int shift = (int)unbox_number(y);
int i;
if (shift > 0) { if (shift > 0) {
for (int i = 0; i < shift; i++) { for (i = 0; i < shift; i++) {
bf *= 2; bf *= 2;
} }
} else { } else {
for (int i = 0; i < abs(shift); i++) { for (i = 0; i < abs(shift); i++) {
bf /= 2; bf /= 2;
} }
} }