Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #277

Browse source
This commit is contained in:
Justin Ethier 2018-10-01 17:05:52 -04:00
parent 2f0537d6b1
commit d9b0adc8c1
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

@ -1214,7 +1214,7 @@
"(void *data, int argc, closure _, object k, object num)" "(void *data, int argc, closure _, object k, object num)"
" Cyc_check_num(data, num); " Cyc_check_num(data, num);
if (obj_is_int(num)) { if (obj_is_int(num)) {
return_closcall1(data, k, obj_int2obj( abs( obj_obj2int(num)))); return_closcall1(data, k, obj_int2obj( labs( obj_obj2int(num))));
} else if (is_object_type(num) && type_of(num) == bignum_tag){ } else if (is_object_type(num) && type_of(num) == bignum_tag){
alloc_bignum(data, bn); alloc_bignum(data, bn);
mp_abs(&bignum_value(num), &bignum_value(bn)); mp_abs(&bignum_value(num), &bignum_value(bn));