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

Issue #55 - Support (inexact) for complex

Browse source
This commit is contained in:
Justin Ethier 2018-05-15 13:15:53 -04:00
parent 1fcf947dd3
commit 75e48f999f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -1195,9 +1195,9 @@
(define exact truncate) (define exact truncate)
(define-c inexact (define-c inexact
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, (double), z); " " return_inexact_double_or_cplx_op(data, k, (double), (double complex), z); "
"(void *data, object ptr, object z)" "(void *data, object ptr, object z)"
" return_inexact_double_op_no_cps(data, ptr, (double), z);") " return_inexact_double_or_cplx_op_no_cps(data, ptr, (double), (double complex), z);")
(define-c abs (define-c abs
"(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);