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

WIP

Browse source
This commit is contained in:
Justin Ethier 2023-09-05 19:04:18 -07:00
parent 46e7e193df
commit cc5d1d5d65
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -478,6 +478,7 @@ int Cyc_have_mstreams();
return_closcall1(data, cont, z); \ return_closcall1(data, cont, z); \
} else { \ } else { \
i = (int)OP(((double_type *)z)->value); \ i = (int)OP(((double_type *)z)->value); \
TODO: make_double, see return_inexact_double_or_cplx_op
} \ } \
return_closcall1(data, cont, obj_int2obj(i)) return_closcall1(data, cont, obj_int2obj(i))
@ -495,6 +496,7 @@ int Cyc_have_mstreams();
return z; \ return z; \
} else { \ } else { \
i = (int)OP(((double_type *)z)->value); \ i = (int)OP(((double_type *)z)->value); \
TODO: assign_double
} \ } \
return obj_int2obj(i); return obj_int2obj(i);

2
scheme/base.sld
View file

@ -1374,7 +1374,7 @@
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, (int), z); " " return_exact_double_op(data, k, (int), z); "
"(void *data, object ptr, object z)" "(void *data, object ptr, object z)"
" return_exact_double_op_no_cps(data, ptr, (int), z);") " return_exact_double_op_no_cps(data, ptr, trunc, z);")
(define-c round (define-c round
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, round, z); " " return_exact_double_op(data, k, round, z); "