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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2017-03-28 21:44:59 +00:00
parent 78be3cd185
commit 4c08f7099d
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/inexact.sld
View file

@ -68,7 +68,14 @@
(/ (c-log z1) (c-log z2*))))) (/ (c-log z1) (c-log z2*)))))
(define-c c-log (define-c c-log
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, log, z);") " return_inexact_double_op(data, k, log, z);"
; TODO: experimenting with how an inline definition might look.
; need something that can both work within the same module and
; also when imported into another module.
; inline:
; "(void *data, object ptr, object z)"
; " return_inexact_double_op(data, k, log, z);"
)
(define-c sin (define-c sin
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, sin, z);") " return_inexact_double_op(data, k, sin, z);")