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

Added exact and inexact

Browse source
This commit is contained in:
Justin Ethier 2016-01-24 22:34:00 -05:00
parent 48e88d41a7
commit 19ad46697b
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -96,6 +96,8 @@
ceiling ceiling
truncate truncate
round round
exact
inexact
) )
(begin (begin
;; Features implemented by this Scheme ;; Features implemented by this Scheme
@ -664,4 +666,8 @@
(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); ")
(define exact truncate)
(define-c inexact
"(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, (double), z); ")
)) ))